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damping  coefficient 
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ABSTRACT 

A description  of  a motion  prediction  computer  program  for  a hullborne  hydro- 
foil is  presented.  This  program  computes  the  six-degree-of- freedom 
(6D0F)  hydrofoil  craft  motions  for  a craft  advancing  at  a constant 
forward  speed,  less  than  the  critical  "lift-off"  speed,  with  arbitrary 
heading  in  regular  waves.  The  structure  of  the  program  consists  essen- 
tially of  the  already  existing  "DTNSRDC  Ship-Motion  and  Sea-Load  Computer 
Program"  modified  to  incorporate  the  foil  and  strut  system  of  a hydro- 
foil craft.  Presented  in  this  report  is  a brief  discussion  of  the 
mathematical  model,  input  information  pertaining  to  the  hydrofoil  and 
a discussion  of  the  results.  Tne  Appendicies  present  a listing  of  the 
foil  coefficients,  data  card  format  description  for  the  original  program, 
and  a program  listing. 

ADMINISTRATIVE  INFORMATION 

This  project  was  funded  by  the  High  Performance  Vehicle  Hydromechanics 
Proqram  of  the  Ship  Performance  Department,  David  W.  Taylor  Naval  Ship 
Research  and  Development  Center,  under  Work  Unit  Number  1-1507-200. 
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INTRODUCTION 


A description  of  the  "DTNSRDC  Hullborne  Hydrofoil  Motion  Prediction 
Computer  Program"  is  presented  in  this  report.  It  predicts  the  motions 
for  a hullborne  hydrofoil  craft  in  six-degrees-of-freedom  (6D0F)  advancing 
at  a constant  forward  speed  in  the  displacement  mode  with  foils  extended, 
at  an  arbitrary  heading  in  unidirectional  regular  waves.  The  program  is 
an  adaptation  of  the  already  existing  "DTNSRDC  Ship-Motion  and  Sea-Load 

1 * 

Computer  Program",  based  on  the  theory  by  Salvesen,  Tuck,  and  Faltinsen 
which  was  developed  for  the  prediction  of  the  motions  and  dynamic  loads 
of  conventional  displacement  type  hulls  and  is  utilized  for  planing  hulls 
in  the  displacement  mode  as  well.  The  program  modifications  consist  basic- 
ally of  the  insertion  of  the  equations  of  motion  for  the  foil  and  strut 
system  of  a hydrofoil  vessel.  The  linearized  hydrofoil  terms,  derived  by 
the  incorporation  of  Theodorsen's  unsteadiness  effects  into  a three  dimen- 
sional quasi-steady  formulation  are  superimposed  on  the  already  computed 
hull  excitation  forces,  added  mass,  damping  and  restoring  terms.  This  tech- 
nique has  been  successfully  used  by  R.  T.  Schmitke  who  developed  two  computer 

programs  which  determine  the  motions  of  a hullborne  hydrofoil  in  single 

2 

headings;  one  in  head  seas  and  the  second  in  beam  seas. 

The  hull  related  input  information  for  the  modified  program  remains 
identical  to  the  original  program,  "DTNSRDC  Ship-Motion  and  Sea-Load  Com- 

3 

puter  Program"  . The  remaining  required  input  all  pertains  to  the  strut- 
foil  system. 


*References  are  listed  on  page  21. 
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The  modified  program  output  presents,  as  in  the  original  program 
for  ship-motions,  the  arrplitudes  and  phases  in  surge,  sway,  heave,  roll, 
pitch  and  yaw  for  a given  set  of  wave  frequencies  and  a specified  set 
of  forward  ship  speeds  and  headings.  Optionally,  one  can  obtain  the 
two  sets  of  coupled  differential  equations  of  motion  in  matrix  form; 
one  for  surge,  heave,  and  pitch  and  the  other  for  sway,  roll  and  yaw. 

Each  set  is  given  for  the  hull  portion,  the  foil -strut  portion,  the 
combination  of  the  two,  and  the  final  inverted  matrix  with  the  solutions. 
Both  sets  are  for  the  minimum  specified  frequency. 

MATHEMATICAL  MODEL 
BASIC  ASSUMPTIONS  AND  LIMITATIONS 

The  analytical  model  for  detennininq  the  motions  of  a hull  borne  hydro- 
foil craft  is  derived  by  adding  linearized  hydrofoil  terms  to  the  strip 
theory  obtained  hull  terms.  The  major  assumptions  and  limitations  are: 

(1)  the  craft  is  traveling  in  a straight  line  at  a constant 
forward  speed  and  arbitrary  heading  in  unidirectional 
regular  waves 

(2)  the  craft  responds  linearly  and  harmonically  to  regular 
wave  excitation 

(3)  wave  excitation  amplitudes  are  small  with  correspondingly 
small  craft  displacement  amplitudes  from  equilibrium 

(4)  all  viscous  effects  are  negligible  except  for  the  hull 
portion  of  the  craft  in  roll 
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(5)  both  the  craft's  beam  and  draft  are  much  smaller  than 
its  length 

(6)  the  craft  is  laterally  symmetrical 

(7)  dynamic  lift  attributable  to  the  hull's  planing  surfaces 
is  insignificant 

(8)  interaction  between  the  hull  and  hydrofoil  system  is 
negligible  as  is  the  interaction  between  the  foil  elements 

(9)  the  hydrofoil  system's  contribution  to  craft  surging  is 
negligible 

(10)  the  foil  system  is  divisible  into  a set  of  rectangular  foil 
elements. 

EQUATIONS  OF  MOTION 

The  conventions  used  in  the  hullborne  hydrofoil  craft  motion  program  are 
the  same  as  the  "DTNSRDC  Ship-Motion  and  Sea-Load  Computer  Program". 

3 

The  following  will  briefly  restate  the  definitions  used.  As  shown  in 

Figure  1,  the  vessel  oriented, right-handed  coordinate  system  is  defined 

to  have  its  origin  in  the  plane  of  the  undisturbed  free  water  surface. 

The  positive  z axis  is  vertically  upward  passing  through  the  craft's 

center  of  gravity,  and  the  positive  x axis  passes  through  the  craft's 

stern.  The  vessel  is  considered  to  be  traveling  at  a constant  forward 
speed  (the  negative  x direction)  with  arbitrary  heading  in  regular 

sinusoidal  waves.  The  heading  angle  u is  defined  to  be  0 degrees  for 

following  waves  and  180  degrees  for  head  waves  as  illustrated  in  Figure  2. 

Encounter  frequency  to  which  the  vessel  will  respond  is 
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Where  U is  the  forward  speed  of  the  ship,  circular  wave  frequency 
a)=/2Tig/A,  g is  the  gravitational  acceleration,  and  x is  the  wavelength. 

With  the  assumption  that  the  motions  are  linear  and  harmonic,  the 
motion  displacements  are 

nj  = cos(wgt  - Cj);  j = 1,  ...,6  (2) 

where  a.  is  the  amplitude  and  e-  is  the  nhase  lag  of  the  motion  with 

\J  u 

respect  to  the  maximum  wave  elevation  above  the  origin.  The  subscripts 
j = 1...6,  refer  respectively  to  the  translatory  displacements  of  surge, 
sway,  and  heave  and  the  angular  displacements  of  roll,  pitch,  and  yaw. 
Following  from  the  above  assumptions,  the  six  linear  coupled  differential 
equations  of  motion  can  be  written  in  complex  form  as: 


6 

r 

k=l 


^ *jk 


> "k  * ®jk''k  * '^jk’'k 


] = Fje'H*;  J = (3) 


where  nijj^  are  the  components  of  the  craft's  generalized  mass  matrix, 
are  the  added-mass  coefficients,  and  Cj|^  are  the  complex  damping 
and  restoring  coefficients  and  F.  are  the  complex  amplitudes  of  the 

vl 

exciting  forces  and  moments. 

For  a hull  borne  hydrofoil  craft  as  well  as  for  a conventional  dis- 
placement hull  the  six  coupled  equations  of  motion  can  be  separated  into 
two  sets  of  equations.  With  the  exclusion  of  hydrostatic  restoring 
coefficients  that  are  equal  to  zero  for  both  the  hull  and  foil  system. 
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the  first  set  of  three  coupled  equations  of  motion  in  surge,  heave 
and  pitch  are 


Surge 

(A^l 

+ ni)  n-| 

* *13"3  ^ 

®13"3  ' 

5 ^15''5 

-ii..  t 

= ^1 

e e 

Heave 

^I'M 

* ®31"1 

+ m )h3  + B 

'33'^3 

^33'^3 

^ ^35"'5 

* 

" Ss^5 

c t 

= Fje  e 

Pi  tch 

^5l’'l 

+ 

^ ^3"3 

^ ®53"3  * 

^53'^3  ^^55 

+ 

'>55-'5  " 

Ss^5  " 

c 1 <•*  1- 

'^5"  ^ 

and  the  second  set  of  equations  are 


Sway  (A^2  +ni  ) n2  + ^22^2  ^ ^^24  " "'^G  ®24^4  ^24"^^ 


iw_t 


* ’'ze\  * ®26'’6  ^ '^26''6  = f2=  ® 


Roll 


Yaw 


(A^2  -">?-g)''^2  " V2^(^4  ^ ^4)^4  " (^44  " ^44)^4 

^44'^4  ^ (^46  " ^46^^6  ®46'^6  ^46'’6  ^ '^4®^"'^^ 

^62’^2  ^ ^62^2  ^ ^'•'64  ' ^46^''4  ■"  ®64^4  ^ ^64''4 


^ ^ ^a)^A  ^AaOc  ■*■  CccH 


— IT  1-^"^  ^ 

= r.e  e 


where  m is  the  vessel's  mass,  1.  is  the  location  of  the  vertical  center 
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of  gravity  on  the  z axis,  I.  is  the  moment  of  inertia  in  the  jth  mode, 
and  is  the  product  of  inertia.  in  the  roll  equation  is  the 
nonlinear  viscous  damping  attributable  to  the  hull.  It  is  in  the  form 
of  a quasi-linear  function  in  terms  of  viscosity,  hull  geometry,  and 
the  maximum  roll  amplitude  for  a given  wave  slope,  speed  V,  and  heading  u- 
The  second  set  of  equations  in  sway,  roll,  and  yaw  may  have  to  be  solved 
a number  of  times  until  the  difference  between  the  maximum  estimated  roll 
angle  and  the  computed  maximum  roll  angle  is  within  an  acceptable  tolerance. 

In  the  program  the  allowed  tolerance  is  one  degree. 

With  the  assumed  insignificance  of  the  hull  and  foil  system  interaction, 
the  hull  and  foil  system  contribution  to  the  added  mass,  damping  and  restoring 
coefficients  and  the  forcing  functions  are  simply  additive.  For  example 
the  added  mass  coefficients  A^.j^  can  be  expressed  as 


/\  = A ^ + A ^ 

jk  Jk  jk 


(10) 


H F 

where  A^"  is  the  hull  added  mass  and  A^j^  is  the  frequency  independent 
foil  system  added  mass. 

The  derivation  of  the  hull  added  mass,  damping  and  hydrostatic  restoring 
coeffficients  and  the  exciting  forces  and  moments  used  in  the  "DTNSRDC 
Ship-Motion  and  Sea-Load  Computer  Program"  are  presented  as  three-dimensional 
hydrodynamic  quantities  in  Reference  1.  Based  on  strip  theory,  these 
quantities  are  in  turn  expressed  in  terms  of  the  solution  to  the  sectional 
two-dimensional  problem  of  each  cylinder  oscillating  in  the  free  surface. 

The  sectional  two-dimensional  problem  is  solved  by  a close-fit  source- 
distribution  method  presented  in  Reference  4. 
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HYDROFOIL  COEFFICIENTS 


The  foil  coefficients  for  nonzero  forward  speed  are  derived  from 
Theodorsen's  solution  of  the  two-dimensional  tLin  aerofoil  oscillating 
in  an  incompressible  fluid  in  pitch  and  heave  with  the  inclusion  of 
finite  span  and  free-surface  correction  factors  (see  References).  This 
method  v;as  used  successfully  by  Schmitke  in  Reference  2 in  predicting 
both  the  pitch  and  heave  motions  of  a hull  borne  hydrofoil  vessel  in  head 
seas  in  one  case  and  the  motions  of  roll,  sway,  and  yaw  in  beam  seas  in 
the  second  case. 

Utilizing  Theodorsen's  solution,  consider  first  the  submerged  foil 
system  of  a hydrofoil  craft  as  being  comprised  of  individual  foil  elements. 
Each  element  is  considered  as  a plane  rectangle  with  no  interaction 
between  the  elements.  The  lift  force  acting  on  a single  foil  element  at 
its  midpoint  (point  of  intersection  of  the  mid-chord  and  mid-span)  is 

^ ^ 4f  4 (11) 

= :t-(c/2)^  b 

= O.SpUbc  C(k)  (13) 

with  c as  the  chord  of  the  foil  element 
b as  the  span  of  the  foil  element 
U as  the  forward  craft  speed 
C,  as  the  lift  curve  slope 

_ 

Vm-1  is  the  time  derivative  of  the  normal  velocity  component  at  the 
^ ^ foil  element's  midpoint 
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is  the  downwash  at  the  3/4  chord 

is  the  noncirculatory  lift  force  or  added  mass  term 


is  the  circulatory  lift  force  consisting  of  dynamic  angle- 
of-attack  terms,  modified  by  Theodorsen's  function  which 
accounts  for  circulation  delay 

is  Theodorsen's  function  in  terms  of  the  reduced  frequency 
k = WgC/2U  given  as 


J,(J,  + Y ) + YJY^  - J ) - i (Y.Y  + J-J  ) 
C(k)  = -1-J 2 LJ 2 L2 L.O. 

" ''o>'  " ('l  - 


J and  Y are  Bessel  functions  of  the  first  and  second  kind  and  m'th 
m m 

order.  Due  to  the  assumed  nealiqible  viscous  forces,  only  the  vclccitj 
nornal  to  cne  veil  element  need  be  considered.  With  n as  the  unit 
vector  normal  to  the  foil  element  and  v^  as  the  velocity  of  the  element 

= (^0  ■ 05) 

In  a rotating  coordinate  system, 

Vq  = V + (Q  X ?)  (16) 

where  v is  the  velocity  of  the  body  coordinate's  origin 

5 is  the  angular  rotational  velocity  of  the  moving  system 
!'  is  the  position  vector  of  the  foil  element's  midpoint  X,  Y,  Z. 
For  small  angles  in  pitch  ns  and  yaw  ne 

V = -Ui  + (=02  + UnJj  + (ns  - UnJk  (17) 


Substituting  (17)  into  (16)  and  evaluating  the  cross-product  term  one 
obtains 


\ 


Vq  = f (Zaj  - - U) 


+ J ^"6  ■ ^"4  * ''"6* 


+ k (n^  + Vn^  - Xog  - Un^) 


(18) 


Upon  substitution  into  equation  (15) 


= j [(h2  + Xog  - Zn^  + Ung)  sin  r 


-('>^+  Yn.  - Xpc  - Un-)  sinr  COST  ] 

3 ^ b D 


+ k [-(n2  + Xog  - Zn^  + Ung)  sinr  cost 
+(n.  + Vn.  - Xn.  - Un.)  cos^r  ( 1^ 


where  r is  the  dihedral  angle  of  the  foil  element  and  T,  j,  k are 
unit  vectors  in  the  moving  system's,  x,  y,  z coordinate  axes. 

The  derivative  of  with  respect  to  time  neglecting  nonl inear 
and  cross  terms  gives 

= j C(o2  ^Hg  - Zn^  + Uog)  sin^r 

- (n3  + Yn^  - Xpg  - Ung)  sinr  cost  ] 

+ k [-(n2  + Xng  - Zn^  + uiig)  sinr  cosr 

+(03  + Yn^  - Xng  - Ung)  cos^r  ] feO  ) 


terms 
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Substiticing  and  Vj^  into  equations  (11)  thru  (13),  one  obtains  the 
three  lift  components  in  the  translational  displacements  of  surge,  sway, 
and  heave  as: 

Surge  *-  = 0 ( 2l) 

A 

2 

Sway  Ly  = A(C^sin  r - C2Sinr  cost) 

2 

+ B(C^^sin  r - C^sinr  cost) 

- c(k)  sinr  [h3  + Yn^  - (X  - J-)  ^5]  (22) 


2 

Heave  = A(C^sinr  cost  - cos  r) 

2 

+ B(C3Sinr  COST  + cos  r ) 

+ C(k)  cosr  [03  + Yn^  - (X  - J )h5  ] (23) 


where 


A = 0.25  rpc^b 

B = O.SO.UbcC,  C(k) 

La 

Cl  = ri2  + Xng  - Zn^  + Ung 

^2  " ^^^4  ■ ^*^5  " ^"5 

C3  = n2  + (X  + |)  og  - Zn^  + Ung 

C4  = ^3  Y'14  - ^5  " 


The  third  terms  in  tho  sway  and  heave  equations  (22  and  23)  comprise  a 
correction  to  the  foil  element's  normal  force;  a modification  due  to  the 
finite  depth  h. 

The  general  moment  equation,  R,  for  the  three  angular  displacements  is 
M = (L  X r)  + R (24) 
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where  the  first  term  is  the  moment  due  to  the  lift  force  and  the  second 


term  is  the  pure  couple  about  the  rotational  axis  passing  through  the 


foil's  midpoint. 


The  moments  in  roll,  pitch  and  yaw 


can  be  expressed  as  follows  with  reference  to  equations  (22)  thru  (24): 


L Z - L Y + M' 

,y  z f 


Pitch 


L X + M' 
2 e 


M = L X + M' 

y ,1. 


The  terms  , M'^  , and  are  comprised  of  hydrodynamic  moments 
of  interia  and  damping. 


M ' = _bf  (An^  + Bn,, 
12 


Mq  = ^ Ac  cos^r(|  \ + u-ij  ) 
M;  = 1 Ac  sin\(|  ^'^6) 


With  foil  syimietry  about  the  xz-plane  as  a requirement,  one  can  greatly 
simplify  the  foil  portion  of  the  coefficients  whereby  the  six  coupled 
equations  of  motion  again  are  separable  into  two  sets  of  coupled 
equations, i .e.  (1)  surge,  heave,  and  pitch  and  (2)  sway,  roll,  and  yaw. 
The  foil  contribution  to  the  coefficients  of  the  two  sets  of  coupled, 
second  order  differential  equations  (4)  thru  (6)  and  (7)  thru  (9)  can 


^ V*  •' 


now  be  determined  from  L„.  L„,  L,,  M . M„,  and  M . In  calculating  the 

X y z 

foil  coefficients  a summation  of  all  the  rectangular  foil  element 
contributions  on  one  side  of  the  xz-plane  is  made  and  doubled  due  to 
symmetry.  Tc  this  is  added  the  contribution  of  the  foil  elements  that 
lie  in  the  xz-plane.  Appendix  A gives  the  foil  coefficients  for  the 
symmetrical  foil  elements.  The  foil  coefficients  for  the  special  case 
of  an  element  lying  in  the  xz-plane  are  approximated  by  taking  half  the 
values  obtained  in  Appendix  A. 


Excitation  Forces  and  Moments  on  the  Hydrofoil 


Consider  now  the  wave  excitation  forces  and  moments  acting  on  a 
hydrofoil  element.  For  a foil  element  with  an  infinitesimal  span,  the 
lift  act'ng  through  its  midpoint  located  at  a distance  r from  the  orgin  is 

1 = vccm^  i "2 

+02(K^)]1  (31) 

where 

= TTC  cosg/A  ; g is  heading  angle 
2 

= 0)  /g  the  wave  number,  and 

the  term  in  parenthesis  is  Sear's  function.  is  the  orbital  wave 
velocity  component  normal  to  the  foil  given  by  the  expression 


Wq  = ir^i(cosr  + i sinr  sing)  exp  fK^EZ  - i (X  cosg  + Y sing)] 

(32) 


+ i w t } 
e 


with  ^,gas  the  wave  amplitude. 
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Integration  of  1 over  the  span  with  respect  to  the  distance  r gives 
the  total  excitation  lift  force,  L,  on  the  foil  element  at  its  midpoint 

L = T,,.cUv/^  ^ ^ 

(33) 

where 

Wt  = - i-  . ["■  sinh  (1-^-)]  [cost  + i sinr  sin-.j  ] 

I do  c. 

exp  {K^CZ  - i (X  cosi!  + Y sin-,i  )]  + i'“gt  f 
and 

a = K2(sin’'  - i sin»  cost  ) 

The  excitation  forces  for  the  three  translational  displacements 


can  now 

be 

determined 

Surge 

fi 

= 0 

(34) 

Sway 

F2 

= - L sinr 

(35) 

Heave 

1 

= L COST 

(36) 

L 


The  moment  excitation  in  roll  is  expressed  by  the  equation 


Irdr  + F;Y  - F'Z 
3 2 


(37) 


where  the  integral  is  again  over  the  foil  element's  span.  With  the 

appropriate  integration 

Roll  F^'  = ti,cUw2  ^^^0^*^!^  ■ 

+ i 0.5k  [Jq(K^)  + J2(K^)] 


" f?  - F? 


(38) 


' •Jk 
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where 


V/  _ 
2 ■ 

- ihu  [|  cosh  (^)  - ^ 

sinh  (J|)] 

[cosf  + i sinr  sinu]  exp 

{K2[Z  - i (X  cosu 

+ Y sinu  ) ] + iugt  } 

excitation  moments  in  pitch  and 

yaw  are  respectively 

•^5  = 

(XL  + m^^2^  cosr 

(39) 

II 

U. 

(XL  + M^^2^  sinr 

(40) 

where  M^/2’  moment  about  mid-chord,  is  given  as 

= 0-25  ’trC^UwyjQ(K^)C(k) 

+ iJi(K|)  [1  - C(k)]  - 0.25k  [J^(K^) 

+ J3(K^)]  + J2(l<i)^ 

Since  the  excitation  forces  in  sway,  roll  and  yaw  in  head  and  following 

waves  are  negligible  F^,  and  F^  are  equated  to  zero  in  the  comouter 

program  for  headings  within  8 degrees  of  u = 180  or  0 degrees. 

The  summation  of  the  excitation  forces  and  moments  on  each  foil  element 

F!  results  in  the  total  excitation  forces  and  momets  on  the  hydrofoil  system 
J 

Fje'^'^e!'  For  computational  purposes,  a second  set  of  forcing  functions  was 
generated  to  be  used  on  foil  elements  that  are  sytmietrical  about  the  xz-plane. 
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COMPUTER  PROGRAM 


Based  on  the  foregoing  mathematical  model,  a program  was  developed 
to  compute  the  hullborne  motions  of  a hydrofoil  craft  in  regular  waves 
of  arbitrary  heading.  The  program  is  essentially  a modification  of  the 
already  existing  DTNSRDC  Ship-Motion  Computer  Program.  In  itself  the 
existing  program  can  determine  the  hydrofoil  craft’s  motions  in  the 
foil  up  mode  in  6D0F  in  regular  unidirectional  waves  of  any  heading. 

The  modification  consists  of  adding  the  foil  system's  coefficients  of 
motion  and  its  excitation  forces  and  moments  to  the  corresponding  terms 
for  the  hull.  As  a conseguence  three  card  sets  listed  below  and  pertain- 
ing to  the  foil  system  of  the  hullborne  hydrofoil  craft  are  added  onto 
the  existing  34  data  card  sets,  which  are  listed  in  Appendix  B. 

A.  Input  Description 

Data  Card  Set  35  - one  card  with  format  (214) 

irOIL:  2 for  hydrofoil  craft  in  the  foils  down  mode.  All 

other  integer  values  are  for  retracted  foil  systems  where  only  the  hull 
is  subjected  to  hydrodynamics  forces 

IPRINT:  option  of  printing  the  matrix  eguations  of  motion. 

With  IPRINT  = 0 printing  of  matricies  is  suppressed  and  for  IPRINT  = 1 
printing  of  matricies  takes  place 

Data  Card  Set  36  - One  card  with  format  (15,3F12.2) 

NF:  total  number  of  foil  elements  on  the  starboard  side  of 

the  hydrofoil  craft.  This  total  consists  of  the  elements  in  symmetry 
about  the  xz-plane  plus  the  elements  lying  in  the  xz-plane 

FVOL:  is  the  displaced  volume  of  the  entire  foil  system 
(including  the  portion  of  the  struts  that  are  immersed).  The  units 
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r 


■m 


is  W0RD**3,  (see  Data  Card  Set  4 of  Reference  3 or  Apnendix  C) 

FXCB:  the  foil  system's  lonnitudinal  center  of  buoyancy,  LCB,  with 

respect  to  the  entire  craft's  LCB,  i.e.  the  x value  in  the  body 
coordinate  system  in  units  of  WORD. 

FZCB;  the  foil  system's  vertical  center  of  buoyancy.  VCB,  i.e.  the  z 
value  in  the  body  coordinate  system  in  units  of  WORD. 

Data  Card  Set  37  - one  card  per  foil  element  with  format 
(F3.l),  5F7.2,  F5.0,  F10.7,  F5.1,  F8.3) 

CPL:  If  the  plane  foil  elem'nt  lies  in  the  center  plane,  i.e. 

the  xz-plane, 

CPL  =1..  In  all  other  cases, 

CPL  = 2.  due  to  the  required  symmetry  of  these  elements 
about  the  center  plane. 

1 

SPAN:  the  length  of  the  rectangular  foil  element  taken  in  a | 

i 

line  parallel  to  the  yz-plane  in  units  of  WORD.  | 

I 

CHORD:  the  width  of  the  rectangular  foil  element  taken  in  a I 

line  parallel  to  the  xz-plane  in  units  of  WORD.  I 

I 

S:  X coordinate  of  the  foil  element's  midpoint  in  units  i 

1 

4 

Of  WORD 

YF:  y coordinate  of  the  foil  element's  midpoint  in  units  of 

woiId 

ZF:  z coordinate  of  the  foil  element's  midpoint  in  units  of 

WORD 

DGAMMA:  is  the  dihedral  angle,  i.e.  the  angle  between  the 

starboard  plane  foil  element  and  the  horizontal  xy-plane  in  degrees, 
see  Figure  3 
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CLZ:  is  the  vertical  lift  slope  of  the  foil  element  in 

dimensionless  units 

ASP:  is  a positive  number  utilized  in  the  aspect  ratio 

correction  factor  AR/(AR  + ASP)  for  foil  elements  of  finite  span. 

For  the  example  cited  AR  = 0. 

Provided  that  the  hydrofoil  system  can  be  represented  by  a set  of 
rectangular  foil  elements  symmetrical  about  the  center  plane,  each  foil 
element  fits  into  one  of  three  categories  as: 

1.  The  most  commonly  encountered  foil  element  not  lying  in  the 
center  plane  counts  as  one  element  with  CPL  = 2. 

2.  The  special  case  of  a foil  element  lying  in  the  center  plane 
counts  as  one  element  with  CPL  = 1,  and  a dihedral  angle  of  90  degrees. 

3.  The  special  case  of  a foil  element  with  a dihedral  angle  of 

0 degrees  intersecting  the  center  plane  is  considered  as  just  that  oortion 
of  the  foil  lying  on  the  starboard  side  from  the  center  plane.  The 
span  is  then  just  the  distance  from  the  center  plane  to  the  foil  tip,  and 
the  midpoint  YF  = SPAN/2,  and  CPL  = 2. 

The  listing  of  the  Hull  borne  Hydrofoil  Six-Degree  of  Freedom  Motion 
Computer  Program  is  given  in  Appendix  C.  The  original  program's  organ- 
ization consisted  of  a main  program  and  a series  of  thirty  subprograms. 
These  routines  are  divided  into  four  overlays  and  all  are  written  in 
FORTRAN  IV.  Currently,  the  program  is  used  on  DTNSRDC's  CDC  6700  computer 
system.  Updated  is  the  main  program  HANSEL  in  the  main  overlay,  and  the 
subroutines  PRGMl  in  the  first  overlay,  and  SPRG5  in  the  third  overlay, 
see  Reference  3.  To  this  is  added  the  subroutine  FOIL  which  computes  the 
foil  coefficients  of  motion  and  the  excitation  forces  and  moments  and  three 
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additional  subroutines  THEO,  EXCIT,  and  IBESJ  which  are  required  for  calcu- 
lations in  FOIL.  The  final  organization  of  the  Hullborne  Hydrofoil  Six- 
Degree  of  Freedom  Computer  Program  is  presented  in  Figure  4. 

COMPARISON  OF  PREDICTED  AND  EXPERIMENTAL  RESULTS 

The  experimental  results  chosen  for  comparison  with  predicted  results 
were  the  hullborne  motion  measurements  of  a model  of  the  3lJ-toti  Plainview  AG(EH)-1 
hydrofoil  craft  as  presented  in  Reference  6.  The  experiments  were  conducted 
on  a 1:12  scale  model  in  DTNSROC's  Harold  E.  Saunders  Seakeeping  and  Maneuvering 
Facility.  The  model  was  run  in  both  the  foils  up  and  foils  down  modes  in 
unidirectional  regular  waves.  The  full  scale  velocities  were  6 and  12  knots 
at  the  three  headings  of  head  (180°),  bow  (150°),  and  beam  waves  (90°).  The 
regular  waves  were  of  a constant  wave  steepness  1/60  and  wave  lengths  ranged 
from  x/L  = 0.25  to  x/L  = 3.0,  corresponding  to  wave  frequencies  of  =0.57 
to  1 .98  rad/sec. 

The  Hullborne  Hydrofoil  Six-Degree  of  Freedom  Motion  Program  was  likewise 
run  in  both  the  foils  up  and  foils  down  modes  at  the  three  headings  of  180°, 

150°,  and  90°.  The  predicted  motions  generally  agreed  well  with  the  experi- 
mental results  as  shown  in  Figures  5 through  11,  which  show  the  craft's  transfer 
function  versus  wave  encounter  frequency  together  with  the  phase  lag  with  respect 
to  the  maximum  height  of  the  wave  at  the  CG.  At  the  headings  of  90  and  150 
degrees,  both  the  theoretical  and  experimental  results  show  that  the  immersion 
of  the  foils  significantly  reduces  the  craft's  motion  in  roll.  The  foil  system's 
effects  in  reducing  pitch  and  heave  are  much  less  pronounced. 

Some  of  the  minor  discrepancies,  especially  in  roll,  between  the  predicted 
and  experimental  results  are  likely  attributable  to  differences  in  the  roll 
Qvradii  of  the  physical  and  simulation  models  since  they  were  not  given  for  the 
model  for  either  the  foil  up  or  the  foil  down  mode.  A less  sianificant  source 


for  error  may  also  be  inaccuracies  in  the  estimation  of  the  foil  system's 
displacement  and  center  of  buoyancy. 

CONCLUDING  REMARKS 

The  motions  predicted  for  the  AG(EH)-1  hydrofoil  craft  in  the  hullborne 
condition  using  the  DTNSROC  Hullborne  Hydrofoil  6D0F  Computer  Program  agree 
satisfactorily  with  the  available  experimental  data,  namely  for  the  heading 
angles  of  90,  150,  and  180  degrees. 

Additional  comparisons  directed  toward  verification  of  the  DTNSROC 
Hullborne  Hydrofoil  6-D  Motion  Computer  Program  should  be  made  as  more 
experimental  results  are  made  available.  The  program  in  its  present  state 
cannot  be  used  to  predict  motions  at  zero  craft  speed  and  in  conditions 
of  negative  encounter  freguencies. 
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TRANSLATORY  DISPLACEMENTS 


m = SURGE 
ri2  - SWAY 
m = HEAVE 


ANGULAR  DISPLACEMENTS 


m,  = ROLL 
ns  = PITCH 

ne  = yaw 


i 1 - Sign  Convention  of  Coordinate  System  with 

Origin  at  the  C.6. 
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Figure  3 


- Definition  of  Hydrofoil  Element  Angle,  r 
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HM' 


VELOCITY  = 6 knots 


Theory  Exper 

FOILS  UP  O 

FOILS  DOWN  O 


VELOCITY  = 12  knots 


Figure  5 - Non-Dimensional  Transfer  Function  and  Phase  Versus 
Wave  Frequency  of  Encounter  for  Beam  Sea  Roll 


ns/(K2*h) 


APPENDIX  A 


LISTING  OF  HYDROFOIL  COEFFICIENTS 
The  hydrofoil  portion  of  the  added  mass,  damping,  and  restoring 
coefficients  of  the  two  sets  of  three  simultaneous  differential  equations 
of  motions  in  (1)  surge,  heave,  and  pitch  and  in  (2)  sway,  roll,  and  yaw 
are  listed  below  for  retangular  foil  elements  in  symmetry  about  the  xz-plane. 
For  the  special  case  of  a foil  element  lying  in  the  xz-plane,  half  of  the 
magnitudes  given  below  give  a good  approximation.  The  coefficients  are  in: 


Surge:  A 

Heave:  A 
A 


F 

Ij 

F 

31 

F 

33 


= B 
= B 


F 

Ij 

F 

31 


= C 
= C 


F 

Ij 

F 

31 


= 0 ; j = 1 , 3,  5 
= 0 


2 2 

= In  p z be  cos  r 


22  = pU  £ bcCj^^C(k)cos  .r 
F 

33  = 2 Z ^C(k)cos  r 
Jth 


35 

F 

35 


2 2 

- 1 np  z be  Xcos  r 


- 1 npUzbc^Xcos^r 


'35 


- pUzbcCj^C(k)(X  + |)cos^r 

-pU^zbcCj^^C(k)cos^r 

^2j-ikC(k)(X-^)cosr 

sh 


33 


Sway: 


\ 


Roll: 


F 2 2 

^22  " - sin  r 

8^2  = pUEbcC|^C(k)sin^r 

= - i TipEbc^sinr(Zsinr  + Ycosr) 

24  2 

B24  = -pUEbcC^C(k)sinr(Zsinr  + Ycosr) 

= -2Z  1^  C(k)  Ysinr 

Aoc  = 1 TTps:  bc^Xsin^r 
do  2 

bL  = 1 TipUrbc^sin^r 
2 

+ pUEbcC,  C(k)(X  +c)sin"  r 

La  ^ 

pF  o 2 

26  = pU  ZbcC|_^C(k)sin  1' 

aL  = - iiipi:bc^sinr(Zsinr  + Y cost) 

2 

B^2  = - pUEbcCj^C(k)sinr(Zsinr  + Ycosr) 

A^-  = 1 TipEb^c^  + 1 npEbc^(Zsinr  + Ycosr)^ 

"24  2 

B44  = IpU  ECL^C(k)  b\  + pUEbcCL^C(k)(Zsinr  + Ycosr)^ 

-F  o_3L  C(k)Y(Ycosr  + Zsinr) 

^44  “ 

-F  = “1  rpEbc^Xsinr(Zsinr  + Ycosr) 

^46  2 

bL  = - 1 npUEbc^sinr(Zsinr  + Ycosr) 

46  2 

- pUEbcC^C9k)(X  + ^-)sinr(Xsinr  + Ycosr) 
cjg  = - pU^EbcC|_^C(k)sinr(Zsinr  + Ycosr) 


«i» 


-li-V*  .. 
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Pitch: 


^51  " ° 


" " 1 upEbc^Xcos^r 

Bg3  = -pUzbcCL^C(k)(X  - I )cos^r 
C53  = - 2£f^C(k)(X-|)cosr 

A55  = ^4  Tipzbc'^cos^r  + I upZbc^X^cos^r 
B55  = -^npUzbc^Xcos^r  + g-  TtpUZbc^cos^r 

+ pUrbcCj_^c(k)(x  + |)(x  - f)cos^r 

C55  = pU^zbcCL^C(k)(x  - |)cos^r 

+ 2z|^{k)(x  + |)(x  - |)cosr 

^62  " } ’'P^bc^Xsin^r 

Bg2  = pUEbcCL^C(k)(X  - |)sin^r 
1 2 

Ag4  = - 2 np^bc  Xsinr{Zsinr  + Ycosr) 

*^64  ' ■ p'^^'bcCj^^C(k)(X  - ^)sinr(Zsinr  + Ycosr) 

^64  = - 2^:|^C(k)(X  - |)Ysinr 

^66  " ^p^bc^sin^r  + j npZbc^X^sin^r 

Bgg  = ^pUzbc^Xsin^r  + pUzbcC^^C(k)(s  + |)(s  - flsin^r 
+ ^ npUzbc^sin^r 
Cgg  = pu2zbcCj_^C(k)(X  - |)sin^r 

The  lift  slope  curve,  is  taken  in  the  program  as  equal  to  2-n 


7 :i .. 


•X  .■"« 
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APPENDIX  B 

DATA  CARD  FORMAT  DESCRIPTION  OF  NSRDC  SHIP-MOTION  COMPUTER 
PROGRAM  AS  PERTAINING  TO  THE  HULLBORNE  HYDROFOIL  CRAFT  MOTION  COMPUTER 

PROGRAM  (Data  Card  Sets  1 - 3^) 

For  a particular  hullborne  hydrofoil  craft  the  input  on  punched  cards 
consists  of  37  Data  Card  Sets.  A description  of  the  initial  3^  non-hydro- 
foil related  Data  Card  Sets  (see  Reference  2)  is  given  below.  Deleted  are 
those  sets  that  deal  with  the  Sea-Load  portion  of  the  original  Computer 
Program.  The  exact  number  of  Data  Card  Sets  as  wel 1 as  the  number  of  cards 
in  each  set  will  vary  according  to  the  requirements  of  a particular  problem. 

The  final  Data  Card  Sets  35,  3^,  and  37  which  relate  to  the  hydrofoil  system  j 

are  described  in  the  text.  | 

i 

Data  Card  Set  1 , one  card,  FORMAT  (3A10).  i 

This  card  contains  three  alphanumeric  variables  used  to  identify  the  output.  j 

(1)  NAME  I,  columns  1-10,  identifies  the  user’s  name.  i 

, ' (2)  NAME2,  columns  11-20,  identifies  the  user’s  code,  ' 

; (3)  NAME3,  columns  21  - 30,  identifies  the  user’s  telephone  extension. 

Data  Card  Set  2.  one  card.  FORMAT  (5X,  A4.  7X.  A3.  8X,  A3). 

This  card  contains  three  alphanumeric  variables  used  as  controls  for  a number  of  options.  The 
. spelling  of  the  values  of  the  variables  is  tested  in  the  program  against  defined  names.  Hence  care  should 

be  exercised  in  using  the  correct  spelling. 

? ( I)  IPASS.  columns  6 - 9.  is  a control  for  reading  in  Data  Card  Sets  3 • 34.  The  options  are. 

IPASS  = COCO,  read-in  sets  3 - 34. 

IPASS  = STOP,  program  stops.  ' 

F IPASS  undefined,  COCO  assumed  (default). 
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(2)  OTAPE.  columns  IT  - 19,  is  a control  for  positioning  the  output  tape.  Results  are  stored  on  an 
output  tape  as  well  as  printed  out.  The  options  are: 

OTAPE  = NEW,  no  tape  positioning,  new  tape. 

OTAPE  = OLD,  output  tape  automatically  positioned  past  previous  results. 

OTAPE  pndefined,  NEW  assumed  (default). 

(3)  PRNTOP.  columns  28  - 30,  is  a printout  option. 

PRNTOP  = MAX,  maximum  printing. 

PRNTOP  = MIN.  printing  of  results  suppressed,  only  data  cards  listed. 

PRNTOP  undefined,  MAX  assumed  (default). 

NOTE  - Data  Card  Set  2 provides  a method  for  including  data  for  more  than  one  ship  at  a time.  Thb  set 
should  be  placed  before  and  after  the  cards  for  each  ship  (Data  Card  Sets  3 - 34).  After  the  data 
for  the  last  ship  use  IPASS  = STOP. 

Data  Card  Set  3,  one  card,  FORMAT  (12A6). 

This  card  contains  alphanumeric  information  identifying  the  project,  ship,  calculations,  etc. 

TITO  (array),  columns  1 ■ 72. 

Data  Card  Set  4,  one  card,  FORMAT  (2A6,  A8) 

This  card  contains  three  alphanumeric  variables. 

(1)  WORD,  columns  1 • 6,  identifies  the  input  length  unit  used.  A unit  commonly  used  is  FEET.  All 
dimensional  variables  input  to  the  program  must  be  in  units  consistent  with  this  length  unit. 

(2)  WORD2,  columns  7-12,  identifies  the  force  unit,  if  WORD  = FEET  then  WORD2  = TONS. 

(3)  WORD3,  columns  13-20,  identifies  the  moment  unit.  If  WORD  = FEET  then  WORD3  = FT- 
TONS. 

WORD,  WORD2,  and  WORD3  are  printed  out  with  the  dimensional  part  of  the  output  to  identify  the 
dimensional  units. 

Data  Card  Set  5,  one  card,  FORMAT  (416) 

This  card  contains  four  integer  variables. 

(1)  NUT  <8.  column  6,  is  the  number  of  offset  points  used  to  describe  each  station.  All  stations 
must  have  the  same  number  of  offsets.  It  is  recommended  that  8 offset  points  be  used. 

(2)  NST  < 27,  columns  11  - 12,  is  the  number  of  stations  used  to  longitudinally  subdivide  the 

ship. 

(3)  NMAS  = NST.  columns  17  - 18,  is  the  number  of  mass  points.  If  IT  ^0  (see  the  next  integer 
description)  then  punch  a one  in  column  18, 

(4)  IT.  column  24,  is  a control  for  reading  in  Data  Card  Set  9 or  Data  Card  Sets  10  - 14. 

IT  = 0,  read  in  the  mass  and  mass-distribution  data  for  each  station,  contained  in  Data  Card 
Sets  10  - 14.  This  option  must  be  used  when  load  calculations  are  desired. 


37 


IT  0,  read  in  the  mass  and  mass-distribution  data  for  the  ship  at  a whole,  contained  on  Data 
Card  Set  9.  This  option  is  used  when  only  motion  calculations  are  desired. 

Data  Card  Set  6,  from  one  to  four  cards.  FORMAT  (8F10.4) 

This  card  set  contains  the  NST  station  numbers,  ST1{I),  used  to  longitudinally  subdivide  the  ship. 
The  stations  are  input  in  the  order  they  occur  along  the  ship  starting  with  the  first  station  at  the  extreme 
forward  point  of  the  ship.  For  example,  0.0,0.25,  1.0,  * * *,  19.75,  20.0.  See  Appendix  B.l  for 
recommended  station  numbering. 

STl  (array),  columns  1 - 10,  11  - 20,  ••*,  71  - 80/repcat  for  up  to  four  cards,  eight  numbers  per 
card. 

Data  Card  Set  7,  one  card,  FORMAT  (2F10.4) 

This  card  contains  the  following  two  floating  point  numbers: 

(1)  ELL,  columns  I - 10,  is  the  length  between  perpendiculars,  in  WORD  units. 

(2)  BEAM,  columns  11  - 20,  is  the  beam  at  midships  in  WORD  units. 

Data  Card  Set  8,  two  cards  for  each  of  NST-2  stations,  a total  of  2 • (NST-2)  cards,  FORMAT  (8F10.4) 
This  card  set  contains  the  y and  z coordinates  of  the  offset  points  for  each  of  NST-2  stations 
(see  Figures  4 and  5).  The  foremost  and  aftermost  stations  have  no  offsets  and  are  not  specified  in  this 
data  card  set.  Appendix  B.2  provides  information  on  allowable  section  shapes  and  contour  specifications. 

(1)  Y (array),  first  card,  columns  1 - 10, 1 1 • 20,  ♦ • 71  • 80,  contains  the  NUT  y coordinates  of 

the  offset  points  for  Section  l*.in  WORD  units.  The  y coordinates  (positive)  are  given  proceeding  cloclc- 
wise  around  the  station  contour,  with  the  first  y value  at  the  intersection  of  th:  waterline  and  the  station 
contour,  and  the  last  y value  at  the  intersection  of  the  centerline  and  the  station  contour.  For  fully  sub- 
merged sections  the  first  y value  is  zero. 

(2)  Z (array),  second  card,  columns  1 - 10,  11  - 20,*  • % 71  - 80,  conUins  the  NUT  z coordinates 
(negative)  of  the  offset  points  for  Section  I in  WORD  units.  The  z coordinates  are  given  in  the  same 
manner  as  the  y coordinates.  For  fully  submerged  sections  the  first  z value  is  at  the  intersection  of  the 
station  contour  nearest  the  free  surface  and  the  centerline. 

Data  Card  Set  9,  one  card,  FORMAT  (F10.4,  4F10.6,  F10.4) 

This  card  set  is  included  when  motions  only  ate  desired.  In  this  case,  IT  /=0  (see  Data  Card  Set  5). 
This  card  set  contains  six  floating  point  numbers. 

(1)  TMASS,  columns  1 - 10,  is  the  total  mass  of  the  ship  in  units  consistent  with  the  WORD  length 
unit.  For  example,  if  FEET  is  the  length  unit,  the  mass  unit  would  be  TONS  • SECONDS^/FEET. 


Note  thal  station  number  STKI+l)  is  associated  with  Section  1. 


(2)  E144,  columns  11  - 20,  is  the  square  of  the  roll  radius  of  gyration  divided  by  the  length  between 
perpendiculars, 

(3)  E155,  columns  21  - 30,  is  the  square  of  the  pitch  radius  of  gyration  divided  by  the  length  be- 
tween perpendiculars,  {Kgllp^? 

(4)  E166,  columns  31  - 40,  is  the  square  of  the  yaw  radius  of  gyration  divided  by  the  length  between 

perpendiculars,  Usually  EI66  is  set  equal  to  E155. 

(5)  E146,  columns  41  - 50,  is  the  mass  product  of  inertia  about  the  x and  z axes  divided  by  TMASS 
• ELL.  E146  is  very  close  to  zero  for  most  ships  and  in  fact  equal  to  zero  for  ship  with  fore  and  aft 
symmetry. 

(6)  ZG,  columns  51  - 60,  is  the  z coordinate  of  the  center  of  gravity,  CG,  of  the  ship  referenced  to 
the  waterline  in  WORD  units  (positive  for  CG  above  the  waterline). 

The  next  five  Data  Card  Sets,  10  through  14,  arc  included  when  load  calculations  are  desired.  In 
this  case,  IT  = 0 (Data  Card  Set  5)  and  Data  Card  Set  9 is  not  required. 

Data  Card  Sets  10-14  Delete 

Data  Card  Set  15.  one  card,  FORMAT(I6) 

This  card  contains  one  integer  variable. 

IXAST,  columns  5 • 6,  is  only  used  when  end-effect  corrections  are  made  to  the  added-mass  and 

damping  coefficients  for  ships  with  transom  type  sterns  (Data  Card  Set  23,  lEND  = 1).  In  this  case, 

IXAST  = NST  - 2,  which  is  the  sequence  number  of  the  last  section  along  the  hull  near  the  stem. 

Note  that  this  card  set  must  be  included  irrespective  of  the  value  of  lEND. 

Data  Card  Set  16,  one  card,  FORMAT  (416) 

This  card  contains  four  integer  variables. 

(1)  NOK  < 30,  columns  5 • 6,  is  the  number  of  wavelengths  for  which  motion  and  load 
calculations  are  performed. 

(2)  NOB  <5,  column  12,  is  the  number  of  Froude  numbers  for  which  motion  and  load 
calculations  arc  performed. 

(3)  NOH  < 10,  columns  17  - 18,  is  the  number  of  headings  for  which  motion  and  load 
calculations  are  performed. 

(4)  NWSTP  < 12,  columns  23  - 24,  is  the  number  of  wavcslopes  for  which  motion  and  load 
calculations  are  performed. 


Data  Card  Set  17.  one  card.  FOPMAT  (1216) 

This  card  contains  the  NWSTP  reciprocals  of  wave  steepness.  INWSTP(I),  defined  as  the  ratio  of 
wavelength  to  wave  height.  X/f^y.  I.e.,  50,  80.  HO.  Wave  slope  in  degrees  is  determined  in  the  program 
as  I80/INWSTP(I).  The  program  also  computes  a wave  amplitude  for  each  wavelength  as  = X//2  • 
WlvSTTf/)/  where  the  wave  slope  is  kept  constant  for  each  heading  and  Froude  number.  See  Section  IIA 
for  a discussion  of  the  use  of  wave  amplitude  in  the  nonlinear  viscous  roll-damping  calculations  and 
Section  IV  for  a general  discussion  about  the  use  of  wave  amplitude  for  scaling  the  output. 

Data  Card  Set  18.  from  one  to  two  cards.  FORMAT  (8FI0.4) 

This  card  set  contains  the  NOH  he.ading  angles.  HDGl(l).  in  degrees.  The  convention  used  in  the 
program  is  head  waves  = 180  degrees. 

Data  Card  Set  19.  one  card,  FORMAT  {SF10.4) 

This  card  contains  the  NOB  Froude  numbers.  FN(I).  The  Froude  number  is  defined  as. 
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where  V is  the  ship  speed  in  fcct/sccond.  g is  the  acceleration  due  to  gravity,  and  is  the  length  between 
perpendiculars. 

Data  Card  Set  20.  from  one  to  four  cards.  FORMAT  (8F10.4) 

This  card  set  contains  the  NOK  numbers  of  nondimensional  wavelengths,  BAM(l),  for  which  calcu- 
lations are  to  be  performed.  The  wavelength  is  nondimensionalized  by  the  length  between  perpendiculars. 

Data  Card  Set  21.  one  card,  FORMAT  (IS.  2FI0  4) 

This  card  contains  one  integer  variable  and  two  floating  point  variables: 

(I)  NFR  ^ 40,  columns  4-5,  is  the  number  of  nondimensional  frequencies  of  encounter,  for 
which  added-mass  and  damping  values  are  calculated.  The  nondimensional  frequency  is  defined  by. 


where  is  the  dimensional  frequency  of  encounter,  is  the  length  between  perpendiculars,  and  g is 
the  acceleration  due  to  gravity.  Note  that  NFR  is  in  an  15  field  instead  of  the  usual  16.  If  NFR  is 
undefined,  the  program  will  compute  a value  for  it. 

(2)  OMIN,  columns  6-15,  defines  the  lower  end  of  the  range  of  values.  If  OMIN  is  undefined, 
the  program  will  compute  a value. 


(3)  OMAX,  columns  16-25,  defines  the  higher  end  of  the  range  of  If  OMAX  is  undefined,  the 
program  will  compute  a value. 

Data  Card  Set  22,  one  card.  FORMAT  (16) 

This  card  contains  one  integer  variable. 

IRR.  column  6.  is  a control  for  interpolating  the  added-mass  and  damping  values  if  irregular  fre- 
quencies exist. 

IRR  = I.  no  irregular  frequencies. 

IRR  = 2.  irregular  frequencies  exist. 

IRR  undefined,  program  will  supply  the  proper  value. 

See  Appendix  C for  a discussion  of  the  effect  of  irregular  frequencies  on  the  calculation  of  the  range 
of  nondimensional  frequencies  and  on  the  interpolation  of  the  added-mass  and  damping  coefficients. 

Data  Card  Set  23,  one  card,  FORMAT  (616) 

This  card  contains  the  following  six  integer  variables; 

(1)  ML.  column  6,  is  a control  for  the  motion  and  load  calculations. 

ML  = I,  only  motions  are  calculated. 

ML  = 2,  both  motions  and  loads  are  calculated. 

ML  must  be  defined. 

(2)  lEND,  column  12,  is  a control  for  including  endterms  in  the  equations  of  motion. 

lEND  = 1,  end  terms  will  be  included.  Set  IXAST  = NST-2  (Data  Card  Set  IS). 
lEND  = 2,  no  end  terms. 
lEND  must  be  defined, 

(3)  IBILGE,  column  18,  controls  reading  in  Data  Card  Sets  27  -28  which  contain  bilge  keel  information 
required  by  the  program  for  computing  the  viscous  roll-damping  coefficient  when  Option  1 or  Method  2 of 
Option  2 is  used.  (For  definitions  of  the  options  see  Section  IIIA.3.) 

IBILGE  = 1,  the  ship  has  bilge  keels.  Read  in  Data  Card  Sets 27-28.  See  IDAMP  and  IPRCNT 
(integers  5 and  6 of  this  Data  Card  Set)  for  choice  of  option  and  method. 

IBILGE  = 2,  no  bilge  keels.  Skip  Data  Card  Sets  27-28. 

IBILGE  must  be  defined. 

(4)  IPRES,  column  24,  is  a control  for  the  pressure  calculations,  it  also  controls  reading  in  Data  Card 
Set  29. 

IPRES  = 1 , calculate  pressures  for  the  stations  specified  by  Data  Card  Set  29. 

IPRES  = 2,  no  pressure  calculations.  Skip  Data  Card  Set  29. 

IPRES  must  be  defined. 

(5)  IDAMP,  column  30,  is  a control  integer  used  to  specify  the  option  used  to  compute  the  viscous 
roll-damping  coefficients.  It  also  controls  reading  in  Data  Card  Sets  32-34. 
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IDAMP  = 1,  Option  1 will  be  used  and  the  total  and  sectional  viscous  roll-damping  coefficients  will 
be  computed  by  the  program  using  information  supplied  in  Data  Card  Sets  25-28. 

IDAMP  = 2 (Future  option).  Option  2 will  be  used  and  the  total  viscous  roll-damping  coefficients  will 
be  read  in  from  Data  Card  Set  32.  See  IPRCNT  (next  integer  description)  for  the  choice  of  method  for 
determining  the  sectional  coefficients. 

IDAMP  = 3 (Future  option).  Option  3 will  be  used  and  the  program  will  determine  the  total  and 
sectional  viscous  roll-damping  coefficients  from  defined  classes  of  ships.  The  class  of  ship  is  specified  in 
Data  Card  Set  34. 

IDAMP  undefined,  program  will  assume  IDAMP  = 1.  If  IDAMP  = I,  Data  Card  Sets  32-34  will  not  be 
read  in. 

(6)  IPRCNT,  column  36,  is  a control  integer  used  to  specify  the  method  used  in  Option  2 to  determine 
tire  sectional  viscous  roll-damping  coefficients. 

IPRCNT  = I,  Method  I is  used  and  the  percentage  of  the  sectional  roll-damping  is  supplied  in  Data 
Card  Set  33. 

IPRCNT  = 2,  Method  2 is  used.  The  program  computes  the  percentages.  Skip  Data  Card  Set  33. 

See  Section  III  A.3  - Viscous  Roll-Damping  Input  and  Table  3 for  a discussion  of  the  various  Options 
and  Methods. 

Data  Card  Set  24,  one  card,  FORMAT  (FlO.8,  2F10.4, 16) 

This  card  contains  three  floating  point  numbers  and  one  integer. 

(1)  VNY,  columns  1 • 10,  it  is  the  kinematic  viscosity  of  water,  u,  in  units  consistent  with  the  WORD 
length  unit.  For  fresh  water  at  70^F,  v-  1.059  x 10"®  FT^  • SEC. 

(2)  GRAV,  columns  11  - 20,  is  the  acceleration  due  to  gravity  in  units  consistent  with  the  WORD 
length  unit.  For  instance,  if  WORD  = FEET,  GRAV  = 32.2  feet  • seconds"^ 

(3)  AMODL,  columns  21  -30,  is  the  total  length  of  the  submerged  portion  of  the  hull.  It  is  used  by 
the  program  for  the  calculation  of  the  Reynolds  number. 

(4)  MOD,  column  36,  is  a control  integer  for  the  type  of  flow  around  the  hull. 

MOD  = 1,  laminar  flow  around  the  hull  is  assumed. 

MOD  = 2,  turbulent  flow  around  the  hull  is  assumed. 

MOD  must  be  defined. 

Most  cases  require  specification  of  turbulent  flow.  For  small  ships  at  slow  speeds  the  flow  may  be  laminar. 
Notc-VNY,  MODL,  and  MOD  arc  required  only  when  the  program  computes  the  roll  damping  (Option  1 or 
Method  2 of  Option  2). 

4 

The  next  four  Data  Card  Sets,  25  through  28,  are  not  includer^  when  IDAMP  - 2.  They  contain  in- 
formation the  program  uses  to  calculate  roll  damping. 

Data  Card  Set  25,  from  one  to  two  cards,  FORMAT  (1615) 

This  card  set  contains  the  NST-2  control  integers,  ITS(l),  one  for  each  station  except  the  extreme  for- 
ward and  extreme  aft  stations.  The  values  of  ITS(l)  are  used  in  the  calculation  of  roll  induced  eddymaking. 
They  specify  the  local  hull  shapes  at  Section  I and  arc  determined  according  to  the  following  procedure: 


(1)  1TS{I)  = I,  Section  I has  a V or  U shape  with  a small  radius  at  the  keel  (bow  sections). 

(2)  ITS{I)  = 2,  Section  I has  a sectional  area  coefficient  greater  than  0.95  (parallel  midbody  with 
rectangular  shapes). 

(3)  ITS(I)  = 3.  Section  I has  a shallow  V or  U shape  with  a local  beam/draft  ratio  greater  than  1.0 
(aft  sections  of  destroyers  or  cruisers). 

(4)  ITS(I)  = 4.  Section  I has  an  e.xtreiiieiy  rounded  shape  (a  destroyer  hull  section  with  extremely 
rounded  bilges  and  no  skeg). 

Note  that  ITS  is  punched  in  15  fields. 

Data  Card  Set  26,  from  one  to  four  cards,  FORMAT  (8F10.4) 

This  card  set  contains  the  NST-2  bilge  radii,  RD(I),  in  WORD  units,  one  for  each  station  except  the 
extreme  forward  and  extreme  aft  stations.  RD(I)  is  defined  as  follows' 

RD(1)  = radius  of  bilge  circle  at  Section  1 for. 

(1)  sections  that  have  bilge  keels, 
and  (2)  sections  with  ITS(l)  = 2. 

RD(I)  = I.O  otherwise. 

The  next  two  Data  Card  Sets,  27  and  28,  are  included  only  if  the  ship  has  bilge  keels  (IBILCE  = 1). 

Data  Card  Set  27.  one  card,  FORMAT  (2F10.4) 

This  card  contains  the  following  two  bilge  keel  parameters: 

(1)  AKEELL,  columns  I • 10,  is  the  total  length  of  the  bilge  keel  in  WORD  units. 

(2)  BEAMKL,  columns  11-20,  is  the  maximum  width  of  the  bilge  keel  in  WORD  units. 

Data  Card  Set  28,  NST-2  number  of  cards,  FORMAT  (6F10.4) 

This  data  card  set  provides  a description  of  the  bilge  keel  at  each  of  the  NST-2  stations.  The  extreme 
fore  and  aft  stations  are  not  considered.  Each  card  contains  the  following  six  numbers  (see  Figure  8): 

(1)  RFD(I),  columns  1 - 10,  is  the  dcadrisc  of  Section  I in  WORD  units.  Set  equal  to  0.0  for  stations 
with  no  bilge  keels. 

(2)  DELTAD(1),  columns  11-20,  is  the  length  of  the  bilge  keel  along  Section  1 in  WORD  units. 

Set  equal  to  0.0  for  stations  with  no  bilge  keel.  The  program  tests  for  0.0  in  this  case  in  order  to  by-pass  a 
number  of  calculations. 

(3)  RKD(i),  columns  21  - 30,  is  the  distance  from  the  middle  of  the  bilge  keel  at  Section  1 to  an  axis 
through  the  center  of  gravity  of  the  ship  and  parallel  to  the  x-axis.  It  is  in  WORD  units.  Set  equal  to  1.0 
for  sections  with  no  bilge  keels. 

(4)  SD(I),  columns  31  - 40,  is  the  distance  from  the  root  of  the  bilge  keel  to  the  waterline  as  measured 
along  the  countour  of  the  hull  at  Section  I.  It  is  in  WORD  units.  Set  equal  to  1.0  for  stations  with  no 
bilge  keels. 
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(5)  COSPHD(I),  columns  41  - 50.  is  the  cosine  of  the  angle,  a,  between  RKD(I)  and  the  bilge  keel  at 
Section  1.  Set  equal  to  1.0  for  sections  with  no  bilge  keels. 

(6)  PH1D(1).  columns  51-60,  is  the  angle,  <i>,  in  radians,  formed  by  RKD(I)  and  a line  connecting  the 
center  of  gravity  with  the  waterline  at  Section  !.  Set  equal  to  1.0  for  sections  with  no  bilge  keels. 

The  next  Data  Card  Set,  29,  is  included  only  if  pressure  calculations  are  desired  (IPRES  = 1). 

Data  Card  Set  29.  from  one  to  four  cards,  FORMAT  (8F10.4) 

This  card  set  contains  the  NST-2  control  numbers,  STPR(l),  which  determine  at  which  sections  the 
pressure  distribution  will  be  calculated.  The  program  can  compute  the  pressures  for  up  to  eight  sections. 
There  are  two  options: 

STPR(l)  = 0.0,  the  pressure  on  Section  1 will  not  be  calculated;  and 
STPR(I)  = 1.0,  the  pressure  distribution  will  be  calculated  on  Section  I. 

STPR(I)  must  be  defined. 

Data  Card  Set  30  Delete 

The  next  Data  Card  Set,  31,  is  not  included  if  roll  damping  coefficients  arc  read  in  (IDAMP  = 2). 

Data  Card  Set  31.  from  one  to  seven  cards,  FORMAT  (8F10.4) 

This  card  set  contains  the  NHF  = NOH  • NOB  • NWSTP  estimates  of  maximum  roll  angle  (single 
amplitude),  THMD{1),  in  radians.  (See  Data  Card  Set  16  for  the  definitions  of  NOH,  NOB,  and  NWSTP.) 
The  THMDd)  values  are  the  initial  values  in  the  “trial  and  error”  procedure  used  in  solving  the  quasi-lincar 
equations  for  roll.  (See  Equation  1 1 in  Section  IIA.)  These  estimates  are  functions  of  wave  slope,  Froude 
number  and  heading  angle.  Eight  THMD(I)  values  arc  given  per  card  in  a sequential  order  given  by  varying 
the  wave  slope  first,  then  the  Froude  number  and  finally  the  heading  angle.  If  THMD(1)  is  undefined  the 
program  will  supply  initial  estimates.  If  accurate  estimates  can  be  provided  by  the  user,  the  run  time  will 
be  reduced  substantially.  Note  that  due  to  storage  restrictions  NHF  < 50. 


The  next  Data  Card  Set,  32,  is  included  when  roll  damping  coefficients  arc  to  be  read  in  (IDAMP  = 2). 

Data  Card  Set  32.  from  one  to  two  cards,  FORMAT  (8FI0.4) 

This  card  set  contains  the  following  two  roll-damping  coefficients  as  a function  of  Froude  number: 

(1)  B2(l).  columns  I - 10.  is  the  linear  viscous  roll  damping  coefficient  for  the  first  Froude  number. 

(2)  B3(l).  columns  11  -20,  is  the  nonlinear  viscous-roll  damping  coefficient  for  the  first  Froude  num- 
ber. If  more  than  one  Froude  number  is  given,  the  remainder  of  the  card  should  be  filled  with  pairs  of 
numbers.  B2(l)  and  B3(l). 

The  next  Data  Card  Set.  33,  is  included  only  when  the  roll-damping  coefficients  are  to  be  determined 
for  each  station  by  the  user  (load  calculations  are  desired  and  IDAMP  = 2).  In  this  case,  IPRCNT  = I. 
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Data  Card  Set  33.  from  one  to  fifty  cards.  FOR.MAT  (8F10.4) 

Tins  card  set  contains  the  percentages  of  B2(l)  and  B3(I)  to  be  used  for  each  of  NST-2  stations.  There 
are  up  to  Invu  cards  for  each  station  (e.xcluding  the  extreme  fore  and  extreme  aft  stations).  The  order  of 
input  per  card  is  the  same  as  in  Data  Card  Set  32. 

(1)  PB2(1.J).  columns  1 - 10.  is  the  percentage  of  the  B2  coefficient  as  a function  of  Station  I and 
Fronde  number  J. 

(2)  PB3{1.J).  columns  II  - 20.  is  the  percentage  of  the  B3  coefficient.  Note  that,  if  IPRCNT  = 2.  the 
program  will  determine  iliese  percentages  and  Data  Card  Set  33  will  not  be  required. 

The  next  Data  Card  Set.  34.  is  included  only  if  IDAMP  = 3. 

Data  Card  Set  34.  one  card.  FORMAT  (16) 

This  card  contains  one  control  integer,  ICLASS. 

ICLASS.  column  6,  specifies  the  class  of  ship  for  which  roll  damping  will  be  computed.  The 
program  will  use  stored  values  for  the  roll-damping  coefficients  as  a function  of  ship  class.  The  options  are: 
ICLASS  = 1.  small  boats. 

ICLASS  = 2,  high-speed  transom-stern  hulls. 

ICLASS  = 3,  moderate-speed  cruiser-stern  hulls. 

If  data  cards  for  another  ship  are  to  be  included,  first  repeat  Data  Card  Set  2 using  IPASS  = GOGO, 
follov.ed  by  Data  Card  Sets  3 - 34  for  the  next  ship.  When  no  more  ships  are  to  be  run,  repeat  Data  Card 
Set  2 with  IPASS  = STOP.  This  completes  the  data  card  input  for  the  program. 


Commonly  Used  Equations 

Encounter  frequency 
Nondimensional  co^ 
Wave  frequency 

to^V 

CJc  = CJ COS  H 

^ g 

^EN  ^ ‘*^E  * 

CO- 

“Vx 

V is  the  ship  speed  in  feet/second 

Froude  number 

V 

g is  the  acceleration  due  to  gravity 

fi  is  the  heading  angle 

X is  the  wavelength 

360  • 

is  the  wave  amplitude 

Wave  slope 

ws  

X 

Lpp  is  the  length  between  perpendiculars 
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APPENDIX  C 


Listing  of  the  DTNSRDC  Hullborne  Hydrofoil  Six-Degree  of  Freedom  Motion 
Prediction  Computer  Program  (see  Ref.  3) 


C LKQ  2 

C rftaSICS  - COC  6700  - HANSEL  - ')NE,  1972  LKO  3 

L LKO  «. 

C HmVSHIO-.ANOCcN  SHiP-rtCTICtt  An'C  itA-cOAD  COHf-UTEK  H^OCkAH LKO  5 

C LKO  6 

C LKO  7 

C tfEHSiCN  0 - N.bALtfESENjhSJiOL  H.FAtAKK.NSROU  0.  FAlTI  NScN,  DN  V LKO  fl 

C - LKO  9 

C VENSiOri  1 - UPOATEC  ANO  CONVERTED  TC  kUN  CN  THE  UHIVAl  1130 lKO  10 

C - AT"  N3S  or  Cm«  SHEklDAN,  1973 LKO  11 

C VEnSION  2 - UPOaIEC  ON  UMVAc  llOO  mI  N3i  ar  3ILL  HEYikS LKO  12 

L - OiC,  1970 lKO  13 

C VEn.SItjN  3 - UPOATEC  ANO  CONvEkTEO  TO  RUN  CN  CCC  6730 lKO  14 

C - AT  NskOC  at  61LL  MEYERS,  JUuE,  1971 L<3  15 

L VEnSlUN  4 - LOaJ  OUTPUT  kCOiFlLJ,  i.JUiUTIAL  STCRAOt  OF LK3  16 

C - FAA  mNO  PAV  - 9ILL  KETtkj,  JUNE,  1972 LKC  17 

C LKO  18 

UVEKLAY  (,.INKO,l},ai  LKO  19 

PROGRArt  HANSEL  ( INPUT , OUIPUT, TmPE5=INPUT , I«PE6=CUTPUT , LKO  20 

2 TAP-1, IaPL10,TAPE23)  LKO  21 

COHMCN  OUm (2723) ,PRNTuP,LUM2  (J56J  LKO  22 

COkHCN  /TcHP/  C.U‘-3(  SaOO)  LKO  23 

UGHPON  /LoOFr^N/  S T L C ( 24 ) , ,.0^02  , hOr 03 , ID AHP , i PRCNT  , 02  1 5 ) , d3  ( 5 ) , LKO  24 

2 ►'E2(25,3)  ,P-j3  (25,5)  ,IvLASS  LKO  25 

CUKH.GN  /PfOlL/  uUh5  (91)  , IPRINT  . FHOO  1 

COr.NGN  /3F0IL/  OuM6(36)  FHOO  2 

DATA  liTUP  /4HST0P/  LKO  26 

luCO  FCr.i,AT  (IH1,27  (/)  ,55X,19H»  HANSEL*)  LKO  27 

100  4 FGr.hAl  ( 3A10)  LKO  28 

1C06  FCrvI*.!  (//5-X,3AlO)  LKO  29 

1005  rCRHAT  (12X,3A1C)  LKO  30 

)01j  TCrt.AT  (1K1,43X,31HL15IING  uF  ALl  INPUT  2AI«  CAFES/)  LKO  31 

1023  FUkrt,.!  (2lx,  IMI , jx,  IH2, -IX,  1h3,9X,1H4,mX,  1M5,  3X  ,1H6,9X,  1H7,9X,1F3/  LKO  32 

24X  (Ol'uCu  )MNS  ,a  (lurU434357v)3) /)  LKO  33 

1033  rt-.f.h!  (5X,A4,  7X,A3,  3X,a3)  LKO  34 

1040  FCmAT  (1 2X,-r  Ajc=*  ,aa,*  TaPE=*,A.3,*  Pk1KI-=*  , A3)  LKO  35 

1053  FUr.MAI  (1  JX,»VckSiON  3 - LuC  b700  - HANLtL  - JUNE,  19*  LKO  36 

2 * 71*/ 1 JX  , *!ISm-C  inIr-r.OTION  Al.D  S.-A-lCAJ  CuHPUTEP  FROGKaH*  LKO  37 

2 /20X,JA10,  LKO  38 

2 //lUX  ,»FUi*  , 13,*  dCU  OUTPUT  TmPE  hI=HI&H  0FN3ITY  (55b)*/)  LKO  39 

1060  K-Ar-r  ( lrtl,27(/)  ,5cX,13H*  c N 0 •)  LKO  40 

uALL  fTWclN  (1,1,10)  LKO  41 

CALL  FI  .JIM  (1,1,20)  LKO  42 

hlHiNCI  LKO  43 

NFASS  = 3 LKO  44 

WRIU  (o,  1000  ) LKO  45 

C LKO  46 

C DATA  lA\D  set  1 LKO  47 

C lKO  48 

REmU  (5,1o04)  iMaF  E 1 , (.a  fic,  a , NAfl3  LKO  49 

HkIU  (0,  1006)  .^A  1E 1 ,NAH£2,NApE3  LKO  50 

10  NFAiS  = MPAiS  ♦ 1 LKO  51 

WRiU  (6,10)0)  LKO  52 

WRITf  (6,1020)  LKC  53 

iF  (NFAjS  .tO.  1)  ARiTt  (6,1008)  NAHt 1 , NA 1E2 , NAHE3  lKO  54 

C lKO  55 

C DATA  LA,^0  SET  2 LKO  56 
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t ^ 

57 

READ  15,1030)  IPASS , OTmPE, PRHTOP 

LKO 

56- 

HkITE  (o,lOAO)  IPASS  ,OrAPE,r?.NTOP 

LKO 

59 

IF  (IfAio  .£Q.  IbTOP)  GO  TO  20 

LKO 

60 

IF  IKFmSS  .cQ.  1)  CALL  3<1P  ( CTAPEjNSKIP) 

LKO 

61 

IF  (NPAiS  .GT.  1)  CALU  SKPFIL  (1,-1) 

LKO 

62 

KFIlE  ■=  HSKIP  «■  NPAS3 

LKO 

63 

WRITE  (l,105u)  HArtEl,.)AM£2,f(At:E3,MFILE 

LKO 

6A 

CALL  bcPA^I  (2) 

LKO 

65 

C4lL  CvEkLAY  (5rtCl)JKl,l,a) 

LKO 

66 

call  overlay  (5HLINK2,2,0) 

LKO 

67 

call  CVSRi-AY  (5HlINK3,3,0) 

LKO 

68 

EROFILE  1 

LKO 

69 

■K  = NFILc  + 1 

, LKO 

70 

WRITE  (1,1050)  NAMEl,KAH£2,SAhE3,‘( 

LKO 

71 

call  SEPART  (2) 

LKO 

72 

GO  TO  10 

LKO 

73 

20 

ENOFILE  1 

LKO 

7A 

REWIND  1 

.LKO 

75 

WRITE  (6,10e0) 

LKO 

76 

STOP 

LKO 

77 

END 

LKO 

76 

C 

'■  ■ SKP 

2 

r 

3 

c 

SKP 

A 

SUBROUTINE  SKIP  (OTAPE.L) 

' SKP 

s 

INTEGER  OTAPE.OLO,TITLE»ENOTAP,ENDGRO 

SKP 

6 

DATA  OLD  /3HOLO/,  ENOTAP  /lOHENO  OF  TAP/.  ENOGRO  /lOHEND 

OF  GRO/  SKP 

7 

1000 

FORMAT  (AlO) 

SKP 

a 

2000 

FORMAT  (•!  •.13.*  FILES  SKIPPED  ON  OUTPUT  TAPE*) 

SKP 

9 

L = 0 

SKP 

10 

IF  (OTAPE  .NE.  OLD)  GO  TO  30 

SKP 

11 

10 

READ  (1,1000)  TITLE 

SKP 

12 

IF  (TITLE  .EO.  ENOGRO)  GO  TO  20 

SKP 

13 

IF  (TITLE  .NE.  ENOTAP)  GO  TO  *10 

SKP 

lA 

CALL  SKPFIL  (1,-1) 

SKP 

IS 

GO  TO  30 

SKP 

16 

20 

L » L ♦ 1 

SKP 

17 

CALL  SKPFIL  (1,1)  • 

SKP 

18 

GO  TO  10 

SKP 

19 

30 

WRITE  (6,2000)  L 

SKP 

20 

RETURN 

SKP 

21 

END 

SKP 

22 

C 

SEP 

2 

c 

—VERSION  A - CDC  6700  -SEPART  - JUNE,  1972 

SEP 

3 

C 

SEP 

A 

SUBROUTINE  SEPART  (N) 

SEP 

5 

1000 

FORMAT  (/*END  OF  GROUP* ,2 (AX, A1 0 ) ,2X ,F10.3/) 

SEP 

6 

1010 

FORMAT  ( *ENO  OF  TAPE  *,2 (AX,A10) ,2X,F10.3) 

SEP 

7 

COATE  « DATE  '0) 

SEP 

8 

CTIHE  » TIME  (E) 

SEP 

9 

ATIME  » SECOND  (A) 

SEP 

10 

IF  (N  .EO.  1)  WRITE  (1,1000)  COATE, CTIME, ATIME 

SEP 

11 

IF  (N  .EO.  1)  GO  TO  10 

SEP 

12 

WRITE  (1.1010)  COATE, CTIME, ATIME 

SEP 

13 

WRITE  (1,1010)  COATE, CTIME, ATIME 

SEP 

lA  . 

BACKSPACE  1 

SEP 

15 

10 

RETURN 

SEP 

16 

END 

SEP 

17 

C 

SIM 

2 

c 

—VERSION  A - COC  6700  - S I M P U N - JUNE,  1972 

3 

C 

SIM 

A 

FUNCTION  SIMPUN(X,Y,N) 

SIM 

5 

c 

SIM 

6 

c 

FORTRAN  IV  FUNCTION  FOR  SIMPSONS  RULE  INTEGRATION 

SIM 

7 

c 

EOUAL  OR  UNEQUAL  INTERVALS, W. FRANK 

SIM 

8 

c 

SIM 

9 

DIMENSION  X(50) ,Y(50) 

SIM 

10 

2 

FORMAT (23HCN0N  MONOTONE  X SIMPUN  IA,1PE12.A) 

SIM 

11 

IF(N-2)  7,S,A 

SIM 

12 

5 

S»(Y(l)»Y(2))*(X(2)-X(l))/2. 

SIM 

13 

GO  TO  6 

SIM 

lA 

■ 7 

S=0. 

SIM 

15 

GO  TO  6 

SIM 

16 
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4 H«N-1  SIM 

Sa(X(2)-X(l) )/6.*(Y(l)«( (X(?)-X{3))/(X(1)-X(3) )*2,)*Y(2)*( (X(l)-X(SIM 
13) )/(X(2)-X(3) ) ♦2.)-Y(3)*(X(2)-X(l) )*»2/( (X(i)-X(3) )«(X(2)-X{3) ) ) )SIM 
LB»2  SIM 

IFIN-3)  8.8*9  SIM 

9 S»S*{X(3)-X(2n/6.*(Y(2)*((X(3)“X{A> )a  CX(2)-X(4) )»2.)*Y(3)«( (X(2)-SIM 
1X(<.)  )/(x(3)-X{4))  *2.)"Y«.)»(X(3)-X(2)  )*»2/(  (X(2)-X(<>)  )»(X(3)-X(A))SIM 


17 

18 

19 

20 
21 
22 
23 


2) ) 

SIM 

2A 

LB«3 

SIM 

25 

8 

DO  1 KaLB.M 

SIM 

26 

XDlFFaABS(X{K*n-X(in 

SIM 

27 

X0IFF1«ABS(X(K)-X(1) ) 

SIM 

28 

IF(XOIFF-XDIFFl)  3,11,11 

SIM 

29 

3 

WRITE(6,2)  K,X(K) 

SIM 

30 

GO  TO  7 

SIM 

31 

11 

continue 

SIM 

32 

ABa(X(K*l)-X(K) )/6. 

SIH 

33 

ACaY(K)«( (X(K*l)-X(K-l))/(X(K)-X(K-n )*2.) 

SIM 

34 

AOaY(K*l )•( (X (K)-X (K-1 ) )/ (X(K*1 )-X(K-n ) ,2.) 

SIM 

35 

AE  = Y (K-U  *(X (K*l ) -X(K) )••?/( (X(K)-X (K- 1 ) ) • ( X (K ♦ 1) -X (K- 1 ) ) ) 

SIM 

36 

1 

S*S*AB»(AC*AO-AE) 

SIM 

37 

6 

S1MPUN*S 

SIM 

38 

RETURN 

SIM 

39 

END 

SIM 

40 

c 

MIV 

2 

c- 

..... 

—VERSION  A - COC  6700  -MATINS  - JUNE,  1972 

MIV 

3 

c 

MlV 

4 

SUBROUTINE  MATINS (A, NR, N1 ,B,NC, Ml .DETERM, ID, INDEX) 

MIV 

5 

c 

MIV 

6 

c 

PROGRAMMER-  S.  GOOO.NSROC 

MIV 

7 

c 

. 

MIV 

8 

EQUIVALENCE  (IROW.JROW) , ( ICOLI/M, JCOLUH) , ( AMAX , T .SWAP ) 

MIV 

9 

DIMENSION  A(NR,NR) ,B (NR ,NC) , INDEX (NR. 3 ) 

MIV 

10 

c 

MIV 

11 

c 

INITIALIZATION 

MIV 

12 

c 

MIV 

13 

N«N1 

MIV 

14 

M«M1 

MIV 

15 

DETERMaO.O 

MIV 

16 

DO  20  Jsl.N 

MIV 

17 

20 

INDEX(J,3)=0 

MIV 

18 

DO  550  I«1,N 

MIV 

19 

c 

MIV 

20 

c 

SEARCH  FOR  PIVOT  ELEMENT 

MIV 

21 

c 

MIV 

22 

AMAX=0.0 

MIV 

23 

no  105  Jal.N 

MIV 

24 

IF(INDEX(J,3)-1)  60,105,60 

MIV 

25 

60 

DO  100  K»I,N 

MIV 

26 

* 

IF(INOEX(K,3)-l)  80,100,715 

HIV 

27 

80 

IF(AMAX-ABS(A(J,K) ) ) 85,100.100 

MIV 

28 

85 

IROW=J 

MIV 

29 

ICOLUM=K 

MIV 

30 

AMAX=ABS(A(J,K)) 

HIV 

31 

100 

continue 

MIV 

32 

105 

CONTINUE 

MIV 

33 

INDEX ( ICOLUM.3) alNDEX ( ICOLUH.3) ♦! 

MIV 

34 

INOEX(I,l)«IROW 

HIV 

35 

INDEX(I,2)*ICOLUM 

MIV 

36 

c 

MIV 

37 

c 

INTERCHANGE  ROWS  TO  PUT  PIVOT  ELEMENT  ON  DIAGONAL 

MIV 

38 

c 

MIV 

39 

IF(IROW-ICOLUM)  U0,310,1A0 

MIV 

40 

lAO 

DETERM—DETERM 

MIV 

41 

DO  200  L«1,N 

MIV 

42 

SWAPxAdROW.L) 

MIV 

43 

48 


ooo  ooo  oo  ooo  oon 


AnHOW.U-AdCOLUH.L) 

200  A(ICOLUM.L)»SWAP 
IF(M)  310,310f210 
210  DO  250  L»1 «M 
SWAP»8(lR0WfL) 
B(lROWtL)«H(ICOLUH,L) 

250  B(ICOLUM,L)*SWAP 

DIVIDE  PIVOT  ROW  RY  PIVOT  ELEMENT 

310  PIV0T=A(IC0LUM,IC0LUH) 
OETERMrOETERMePlVOT 
330  A{ICOL1JH,ICOLI)H)»1.0 
DO  350  L»1.N 

350  A ( ICOLUM.L) =A ( ICOLUH.L) /PIVOT 
IF(M)  380.380.360 
360  00  370  L=«1.H 

370  P( ICOLUM.L) »8 (ICOLUM.L) /PIVOT 

REDUCE  NON-PIVOT  ROWS 

380  00  550  L1»1.N 

IF(Ll-ICOHIM)  AOO.550.AOO 
AOO  T»A(L1.IC0LUM) 

A(L1.ICOLUM)>0.0 
00  A50  L = 1 .N 

A50  A (LI .L ) =A (Ll.L) -A ( ICOLUM.L )»T 


IF(M)  550.550.A60 
A60  00  500  L=1  .M 

500  R(L1 .L)=fl(Ll.L)-e(IC0LUM.L)»T 
550  continue 

INTERCHANGE  COLUMNS 


00  710  1=1. N 
L=N.1-I 

IF ( INDEX (L.l) -INDEX (L.2) ) 630,710.630 
630  JROW=lN0EX(L.l ) 

JC0LUM=IN0EX(L.2) 

00  705  K=1,N 
SwAp=A(K,JROW) 

A(K.JROW)=A(K,JCOLUM) 

A(K.JC0LUM)=SWAP 
705  CONTINUE 
710  CONTINUE 

00  730  K=1.N 

IF(IN0EX(K.3)-1)  715.720.715 
720  CONTINUE 
730  CONTINUE 
10=1 

810  RETURN 
715  ID»2 

GO  TO  810 
END 

VERSION  A - CDC  6700  - P R 0 1 - JUNE.  1R72 

OVERLAY  (LINKl.1.0) 

PROGRAM  PROl 
CALL  PRGMl 


r*ono  oooooo 


fRl 


VtkSICN  4 - COC  670Q  - P R C H 1 - JUNE,  1972 PRl 

PRl 

SU3^0UTINE  PRGMl  PRl 

PRl 

PROGKAMHER-  0.  F*LTINSEN,0NV  PRl 

PRl 


COhHGN  AKET)  ,NUr,NHAi,NjS,ST(29i  ,DS<25)  ,EL,ELL , X(25, 8)  ,Y  (25,  8)  ,PH  PRl 
lrtS(27J  ,X.1AS(27)  ,Z«A3  (27)  , RkC(2 71 , XG,  2G  ,TMAS, Cl  44  ,t.I55 , t Io6,cX4  6 , 7?  PRl 
25T,RP3J,RN.i5,ivn55,‘CGK,jlH,i(,N,TVOL,Ai.f  A(40,ll)  ,804(40, 11)  ,HCG  (10)  PRl 
3,FN(5)  ,dAH(30)  ,COG(10)  ,SOG(10)  ,OHAX,  O-HIN , NFR  , NOK  ,N03  ,NOH,  0)IE.(  ( 4 0)  , PRl 
4Fk(7,6),XX(25,  7)  , YT(25,7)  ,G£L(25,7)  ,GtJt(25,7)  , CSE  ( 25 , 7)  , LNK  25 , 7)  , PPl 


5UN,0rlCiA,Ij,  71  TO (12)  ,M0RU,NOH,IXAST,H0Gl  ( 1 0 ) , iT  , lSV ,CrC  , rRNTOP  PRl 

COKNQN  Si  1(27)  , YNA  S ( 2 7) , liEAKl,  CRAFT , UKA  X,  IRu,  CL  , I Lt.C,  I BILGE , IPRES , PRl 
2VNY,GKAV,ArtOUL,HOC,AK£CLL,BEAMKL,lTS(25)  ,R0(25)  ,f.Fi,(25)  ,JELTA0(25)  PRl 
2,RK0(2S)  ,S0(25)  ,i;0bPhC(25)  ,PriIC  (25)  , STPR  (25)  ,rhPO(50)  PRl 

CUr.nOH  NHS7P,I).HSiP(!2)  PRl 

COknON  /TEMP/  aI2(29)  ,0S1<27)  ,XMA31  (27)  ,SUAR(27)  ,SAS(27)  ,h8.1(27)  , PRl 
2 HB3(27)  ,SS(27)  , Xi  ( d)  , YI  (i)  ,XY  (o)  ,SHa  ( 27)  , MSB  ( 27)  ,OUM3(4704)  PRl 

UONHON  /LOCpRN/  dTL  0 (24 ) , HOR02,HOR03,  ID  AMP,  IPRCNT  , 82  ( 5)  , B3  ( 5)  , PRl 

2 Pb2(2S,5)  ,PB3(25,5)  ,ICLAoS  PRl 

COHKON  /PPOlL/  1FOIi.,RHO,NF,CPL(10)  ,SPAN(10)  ,C)iOKO(10)  ,S(10)  ,YF(10  FMOO 
2)  ,2F(10)  ,OGAPHa(10)  ,oLZ(10)  ,ASP(10)  , IPRIMT  FKOO 

PRl 

READ  and  print  All  OATm  CARO  INPUT  PRl 

hRiTc  ALL  data  CARD  INPUT  ON  dCO  OUTPUT  TAPE  PRl 

PRl 

299  FOnMAT  (1H1,12A6)  PRl 

1000  FORMA!  (1JX,»SHIP  OATA  CAPO  INPUT  TO  HANjFL')  PRl 

d005  FOKMmT  (11U,40X,31HLISII«G  OF  ALL  INPUT  OhTA  lAKOS/)  PRl 

8007  FoRMlT  (21X, lHl,9X,lH2,aX,lH3,9X,lH4,9X,lrt5,9X,ln6,9X,lH7,9X,lF8/  PRl 
ZAXjoHCOLUHnS  ,0  ( 10rtl23t5fa7890) /)  PRl 

aOOo  FORMAT  (//24H  END  OF  uATA  CAkO  INJ'Ui)  PRl 

8009  Fur.hAT  ( /27H  ...CCNTINUcO  ON  NEXT  PAGc.)  PRl 

8002  FdRMhT  (SX,A3, dX,A3)  PRl 

8004  F0r,MAT  ( 2m6,A8)  PRl 

o006  FOFMaI  (12X,2«6,a8)  PRl 

8000  FO^K4T  ( 1246)  PRl 

8010  rO^MA^  (12X,12A6)  PRl 

8028  FukMaT  ( 1216)  PRl 

8030  FuaKAT  (12X,12I6)  PRl 

oC32  FORMAT  ( F10.4,4F10.6,Fia,4)  PRl 

8034  FORMAT  ( 12X , F 1 0 . 4 , 4F 10 . 6 ,F 10. 4 ) PRl 

8040  FOkMAT  ( oFlC.4)  PRl 

oC50  rO«MAT  (12X,SF10.4)  PRl 

8060  FORMAT  ( I5,2F10.4)  PRl 

8370  FOnMAT  ( 1 2X  , 1 5 , 2F 10  . 4)  PRl 

8080  FOkmaI  ( F10.‘1,2F  IC.4,16)  PRl 

8090  FORMAT  (12X,F10.3,2F10.4,I6)  PRl 

8100  FORMAT  ( IbiS)  PRl 

8110  format  (12X,16i5)  PRl 

HkITl  (6,8005)  PRl 

HkITE  (O,jJ07)  PRl 

8ACKSFA>«£  1 PRl 

LALL  itPART  (1)  PRl 

HRITC  (1,1000)  PRl 

C, 


50 


DATA  CA^O  SET  3 


KEAO  (S.duOO)  TITO 
HRlTt  (6,d010)  TITC 
HRxTh  (1,8000)  TITO 


OATa  oAxO  set  >, 


REAC  (StdOOA)  h0RJ|WCKC2,H0kC3 
WRITE  (6,3006)  WORD , hCROZ , W0RC3 
WRITE  (1,300A)  W0k0,WCR02,WCkC3 


OATa  CAkO  SET  5 


READ  (5,3020)  NoT  ,)t^T ,).‘MAS , IT 
H)tITb  (6,dOJO)  NJT,NST,HMAS,IT 
WRITE  (1,3020)  SJT  ,NST,NMAS,IT 
NOS  = NST  - 2 
M2  = N3I 


DATA  LARO  SET  6 


READ  (5,dOAO)  (STKI)  ,I  = 1,M2) 
WRITl  (6,8050)  (Slid)  ,1  = 1, «2) 
WRITE  (1,8040)  (STl (I) ,1=1 ,M2) 


DATA  CARO  SET  7 


REAC  (5,o040)  ELa,3EAM 
WRITE  (6,0050)  £Ui.,3EAM 
WRlTc  (1,8040)  tLL,3c.AM 
00  9010  1=1  , NuS 


Data  CarO  SlT  8 


READ  (5,o040) 
Write  (6,b050) 
WkITl  (1,oJ40) 
READ  (5,3040) 
WRITE  (b,3050) 
WmTE  (l,b04C) 
9010  CONTlNU- 

IF  (il  .cO.  0) 


(X(i,  j)  ,j=i  ,ta;T) 
(x(i,  j)  ,j=i,Nun 
(X(I,  J)  ,J=1,(I'JI) 
(v(i,  J)  ,j=i  ,Nun 
(r ( I, J) ,j=i ,NUT) 
(Yd,  J)  ,J  = 1,NUT) 

Go  TO  9020 


OATa  uArO  SET  9 


REAG  (5,8032)  T9AS , E Ia4 , E 155 , EI66 ,E 146, ZG 
Write  (6,o034)  TMAS,cl44,cI50,£I66,tI46,ZG 
WRlIt  (1,3032)  T«AS,c.I44,tX55,cl66,£I46,ZG 
WRITE  (6,3009) 

WRITE  (6,209) 

WrITc.  (6,3007  ) 
bO  TC  9u30 


DATA  V.ARO  SET  10 


OOO  O o o OOP*  o o o o o o ooo 


WRITE 

WKaiE 

(6,8050) 

(1,80A0) 

(PHAS(1),I=1,6MAS) 
(PRAS(I) ,I=1,NMAS) 

UATh 

CARO  6ET 

11 

RcAO 

HkIIE 

HkIIE 

(5.8040) 
(6,8050) 

(1.8040) 

(XMAS(I), 1*1, KRAS) 
(XilAS(I),I=l,NMAS) 
(XKAS(I),1=1,NMAS) 

DATA 

CARO  S£T 

12  . 

REAu 

WRITE 

WKITl 

(5.8040) 
(6,8050) 

(1. 8040) 

(yHAS(I),l=l,K.'lAS) 
(T«AS(I),I*l,KnAS) 
(YMAS (I) ,I=1,«KAS) 

OAT  A 

CARO  SE! 

13 

HkITE 

WRITE 

WRITE 

REmO 

WRITE 

WRITE 

(6,8009) 

(o,£99) 

(6,o007) 

(5.8040) 
(6, 8050) 

(1.8040) 

(ZMAS  (1),I*1,NMAS> 
(ZMAS(I) ,I=1,NHAS) 
(ZHAS (I) , I=1,KHAS) 

DATA 

card  SET 

14 

READ 

WRITE 

WRlTt. 

(5,3040) 

(6,o050) 

(1,8040) 

( kR6(1),I=1,NMAS) 
( RRG (I) ,I*l,NMAS) 
( KkU (1) , I=l,N«As) 

uATA 

CAf<0  Scf 

15 

90J0  READ 
WRITE 
WRITE 

(5,80Z0) 
(6, 8030) 
(1,8020) 

IXAST 

IXAST 

ixAsr 

OATa 

CARO  SET 

16 

READ 

WRITc 

WRITE 

(5.8020) 
(6,8030) 

(1.8020) 

NOK,N08,«OH,NSSTP 

N0K,i>03,H0H,KWSIP 

f,uK,NCO,ltUH,NHSTP 

Data 

CARO  SET 

17 

read 

WRITE 

WRITE 

(5,3020) 

(o,8030) 

(1,8020) 

(IfiHSTP(I)  ,l=l,NHSTF) 
(INWSIP(I) ,1=1, NWS TP) 
(li)HaTP(l)  ,I=1,NWSIF) 

. OAT  A 

^Ar,0 

18 

REAO 
WRiT  c. 
WKlTt 

(5.8040) 
(6,8050) 

(1. 8040) 

(HOGI (I) ,I=t,NUH) 
(HOGl (I) ,1=1, NOH) 
(HwUl (I), 1=1, NOH) 

UATA 

CARD  SE) 

19 

PRl 

114 

PRl 

115 

PRl 

116 

FRl 

117 

PRl 

118 

PRl 

119 

PRl 

120 

FRl 

121 

FRl 

122 

PRl 

123 

PRl 

124 

PRl 

125 

PRl 

126 

PRl 

127 

PRl 

128 

PRl 

129 

PRl 

130 

PRl 

131 

PRl 

132 

PRl 

133 

PRl 

134 

PRl 

135 

PRl 

136 

PRl 

137 

PRl 

138 

PRl 

139 

PRl 

140 

FRl 

141 

FRl 

142 

PRl 

143 

PRl 

144 

PRl 

145 

PRl 

146 

FRl 

147 

PRl 

148 

PRl 

149 

PRl 

150 

°R1 

151 

P.Rl 

152 

PRl 

153 

PRl 

154 

PkI 

155 

PRl 

156 

PRl 

157 

PRl 

158 

PRl 

159 

FRl 

160 

FRl 

161 

PRl 

162 

FRl 

163 

PRl 

164 

PRl 

165 

FRl 

166 

PRl 

167 

PRl 

168 

PRl 

169 

PRl 

1 70 

kEAo  (5,8U40)  (FN(I)  ,1=1 ,N0Q» 


52 


UiJO  UUU  L>  J u o<jo  OUO  ooo 


HRIIE 

HRxIt 

(6,3050) 

(l,a040) 

(FN(I)  ,I=l,N(i9) 
(FN(I) ,1=1, NU3) 

PRl 

PRl 

DAT  A 

CARO  SET 

20 

PRl 

KcttO 

WRITE 

MRlTc 

(5,8040) 

(6,8050) 

U,o040) 

(3A.i(  I)  ,I=1,NJKI 
(3AK(I) ,I=l,ROK) 
(3AR(I) ,I=1,NCK) 

PRl 

PRl 

PRl 

DATA 

CARO  SET 

21  ■ 

PRl 

READ 

HRlTc 

WRITE 

(5,6063) 
(6, 80/0) 
(1,8060) 

NFR.OHIK, OHAX 
NFR,0«IImORAX 
NFR,CnIN,U!lAX 

PRl 

PRl 

PRl 

DATA 

I.ARO  SET 

22 

FRl 

READ 

MRiTE 

write 

(5,3023) 

(6,8033) 

(1,8020) 

IrR 

IRR 

IRR 

FRl 

FRl 

PRl 

0 AT  w 

CARO  SET 

23 

PRl 

REAu 

WRITE 

HRITc, 

(5,6020) 
(6, SC30) 
(1, 8020) 

HL,I£N«, 18ILGE, IPRES,ICAHP,1PRCNT 
rIL  ,lEi'(aa,  XOILtjE  , XfRES,A  CA  tiP , IPkOjT 
rtL,Ic.NO,13IEG£,lPKES,10A.'1?,lPK  CNT 

PRl 

PRl 

PRl 

DATA 

la<o  set 

24 

PRl 

RtAO  (5|8aoG) 
WRITE  (6,6090) 
WRITE  (1)8080) 
IF  (ICAl?  .EQ, 

VNY,GRAV,A«OJL,WOO 
Vi(Y,GhAV,  A.'1CCL,RoO 
V()Y,GFAV,«.8GOL,WOO 
2)  GO  TO  9045 

PRl 

PRl 

PRl 

PRl 

OaTA 

CATO  SET 

25 

PRl 

READ 

WRITE 

WRITE 

(5,6100) 
(6,3  110) 
(1,8100) 

(ITS(i) ,1=1, NOS) 
(IIS( I) ,I=l,NOS) 
(ITS (i) ,1=1 , NOS) 

FRl 

PRl 

PRl 

DATh 

CARC  SET 

26 

PRl 

READ  (5,8040) 
WRITE  (6,8050) 
WRITE  (1,8040) 
IF  (I311.UC  (cUa 

(«0(  U , 1=  1 ,NjS) 
(‘'u(I)  ,I=l,UuS) 
(RCdO  ,l=l,NuS) 
2)  GO  TO  9050 

FKl 

FRl 

PRl 

PRl 

OATA 

4AkO  SET 

2/ 

PRl 

READ  (5,o040) 
WRITE  (6,8050) 
WRITE  (l,a040) 
00  9040  1=1, NUS 

AKEELL (riEAKKL 
A<lELL  ,OtAH<L 
AKEELL,  jEArtt'L 

PRl 

PRl 

PRl 

PRl 

UATA 

Cmi^O  Sc.T 

28 

PRl 
P<1 

RtAC  (5,d0‘*a)  kFD(I)  ) JELTAOU)  ,KKi)(II  ,iO(I)  .CCSFHuU)  ,PHIC(II  PRl 


1/1 

1/2 

1/3 

l/% 

1/5 

1/6 

1// 

1/8 

1/9 

180 

181 

182 

183 

184 

185 

186 
18/ 
188 

189 

190 

191 

192 

193 

194 

195 

196 
19/ 

198 

199 

200 
201 
202 

203 

204 

205 

206 
2 0/ 
208 

209 

210 
211 
212 

213 

214 

215 

216 
21/ 
218 

219 

220 
221 
222 
223 
2 24 

225 

226 
22/ 
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o o o oor*  of“o  o o r>  o o o o o o 


HKITE  (6,d050)  RFO(l) ,CELTAO(I),RKo(I) ,SO(t) ,C0SHH0(1) (PKlCd) 
HRITt  (1,30<>0)  RFO(I)  ,b£t.TAu(l)  ,kKC<1)  ,SJU)  tCOSFHUCl)  ,PHIC(I) 
90i.0  CCN7IKU? 

9CA5  COMlIiUi 


OATA  CARO  iCT  29 


0 IF 

( IP  r-_3 

.EQ. 

1) 

READ 

(5,3040) 

(STPRd) 

,I»1,HCS) 

IF 

( IFkES 

• cO« 

1) 

WRITE 

(6,3050) 

(STPRd) 

,1=1, NOS) 

IF 

( iPKtS 

.EQ. 

1) 

.WRITE 

(1,8040) 

(STPRd) 

,I=l,KOS) 

NOSHl  = NOS  - 1 


DATA  uAKC  SE.T  30 


IF  (IT  .tU.  0)  REAO  (5,80<.0)  (STtD ( I»  , 1=  1, KCSMl) 

IF  (II  .EQ.  0)  WRITE  (fa, 3050)  (STLO ( I) , 1*1, NCSn  1) 

IF  (IT  .lO.  C)  WRITc.  (1,S0<,0)  ($T(.0 ( I)  , X=1 , NCSKl) 

NHF  * NOH-*NOe»NHSIP 
IF  (ICAMP  ,EQ.  2)  GO  TO  9052 


data  CARO  SET  31 


READ  (5,3040)  (TH«0(I) ,i=l,MHF) 

HkITE  (6,3050)  (THrtO (I) ,I=1,KHF) 
WRITE  (1,3040)  (THKO(I) ,I=l,KhF) 
CONTINUE 

IF  (iOA.'iP  .L£,  0)  lOAKP  s 1 
IFdCAPp-E)  9030,9055,9080 
9055  CONTINUE 


OATA  CARO  SET  32 


READ  (5,3040)  ( 32 d ) , 63 ( 1) ,1=1 , Nu3) 
WRITE  (6,3050)  (o2 (I ) , 93 ( I)  , I =1 , HU3) 
Wn.lTE  (1,3040)  (32  ( 1 ) ,0 3 d ) , X = 1,  N03) 

IF  (IKRCNT  .Nt.  1)  GO  TO  9090 
DO  5070  1=1, NoS 


OATm  CARO  SET  33 


9070 

9030 

READ  (5,3040) 
WRITE  (6,3050) 
WRITE  (1,3040) 
CONTINUE 
GC  TO  9090 
CUNT INUE 

(P32  d,J),PJ3d,J)  ,J=1,NQ3) 
(P02 (I, J) ,P83(I, J) ,J=l ,NOE) 
(P92  d,J)  ,P33d,J)  ,J=l,NOB) 

OATA  uARO  SET 

34 

READ  (5,3020) 

loLAiS 

WRIT  t (fa , 3030 ) 

ICLASS 

HRlTc  (1,3020) 

ICLAaS 

9090 

CONTINUE 

90  5 

FORI.AK  X5,3F12.2) 

906 

rOf.KATU2X,X5,oF12.2) 

907 

FORMAT ( 15,3F12.2) 

97u 

FOkMAK  F3.0 

,5F7.2,F5.0,MC.7,F5.1) 

PRl 

228 

FRl 

229 

PRl 

230 

PRl 

231 

PRl 

232 

FRl 

233 

PRl 

234 

FRl 

235 

PRl 

236 

FRl 

237 

PRl 

238 

PRl 

239 

PRl 

240 

PRl 

241 

PRl 

242 

PRl 

243 

PRl 

244 

FRl 

245 

FRl 

246 

FRl 

247 

FRl 

248 

FRl 

249 

FRl 

250 

PRl 

251 

PRl, 

252 

PRl 

253 

FRl 

254 

FMCO 

5 

PRl 

256 

FRl 

257 

PRl 

258 

PnI 

259 

PRl 

2 60 

FRl 

261 

FRl 

262 

FRl 

2 63 

PRl 

264 

FRl 

265 

PRl 

266 

Fn.1 

267 

PRl 

2E8 

PRl 

2 69 

PRl 

2 70 

PRl 

271 

PRl 

2 72 

PRl 

273 

FKI 

2 74 

PRl 

275 

PRl 

2 76 

PRl 

277 

PKl 

2 76 

PRl 

2 79 

FRl 

280 

FKOO 

6 

FKOC 

7 

FKOO 

8 

FKOO 

9 
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oooooror'o  ooonor'o  onronon 


971  FOSKaT  (12X,F3.0,5F7.2,F5.0,F10.7,F5.1»  FKOO 

96i)  F0KHAT(//1JH  Cfl<^0  SET  36)  FMOO 

990  F0f(HAI  (//liH  CA^O  SET  37)  FNOD 

7001  FOi^KtT  (214)  FHOO 

7002  FOnKAl C//22H  FOIL  0AT4  cAFC  IKFUTJ  FhCC 

7003  FO-irtAI  (//32H1  HYJRCFCIL  VESSEL  )(IIH  FOILS  UP/)  FMOD 

7004  FOSkAT  (//34H1  HYORCFuIL  vESjcL  WITH  FOILS  DOWN/)  FflOO 

2212  FC.^SAT  (/21X,lnl,'iX,lH2t9X,lri3,9X,lM4,JX,lH5,9X,lh6,9X,lH7,9X,lH8/  FKOO 

24X,ohL0LJ«HS  ,o(10rtl234567o'j0)  ) FKCO 

2213  FOkrlAT (/14X,2h«F,9X,4HFV0L,dX,LHFXCa,SX,4HFZC3/)  F«00 

2214  format  (/12X|3hCPL,3X,4HSi-AN,2X,5HLHCR0,3X,4HXlS) ,4X,lhY,6X,lK2,2X  F«C0 

2f6HCGAl..)A,3X,3r.CLZtSX|3HASP/)  FMOO 

FKCO 

OaTA  LAFO  set  35  FMOD 

Ftxo 

HYonOfCiL  VESSEL  WITH  FOILS  UF  - IFOlL=l  FKCO 

HYuKCFOIl  vessel  RliH  FCIlS  CCHN  - IFOIL=2  FKOO 

FRINTLUT  of  MhTxIX  equations  (NO  = 0 , YES  * 1)  FKOO 

FKOO 

REAO(5,70Q1)  IFOIL.IFRINT  FKOO 

IFdFCli.  .N£.  2)  IFOIL=l  FKCO 

WRITE < 1,7001)  iFOlL  FKCO 

IF(lfolL-l)  9091,9091,5092  FKOO 

9091  WRITE(6,7003)  FkOC 

GO  TO  9515  FKOO 

9092  HKiTi(6,7004)  FKCO 

H(<1T£(6,/002)  FKCO 

HKlTt(6,2212)  FKCO 

- - FKCO 

OATa  LAnO  ScT  36  FKOO 

FKCC; 

NUHCLr  CF  INFUI  foil  ELEMEIiIs,  OlaPLACEC  VOLUME  (HC^0»•3),  FKCO 

LCNGITUGiNm^  ClNTSR  CF  JOYAKCr  FkOK  F.P.  AUO  VtkIILAL  CcNTEk  oF  FKCD 

BOYAmlY  from  WATtKLiHL  (WORu)  OF  THt  lUTIKE  MYuRCFOlL  SYSTEM  FKCD 

FKCO 

REAC(5,905)  NF,FVOL,FXCd,FZCd  FKCO 

WRITElo, jdO)  FKOO 

HR1TlJ6,221o)  FKCD 

HkITUb,j0b)  NF  ,FVOl  ,FXC3,FZCB  FKCO 

WhITE(l,307)  hF ,FVCl ,FXC8,FZCG  FKCO 

HR1Tl(6,993)  FKCO 

HkiU(6,2214)  FKCC 

00  100  1=1, NF  FMCO 

FHOO 

0«TA  LAnO  S-I  37  FKCD 

— — — FKCD 

FOIL  ELLrtr.M  IN  VEkTICAl  lCNTER  PLANE  (CPl=1.  FOR  YES,  CPL=2.  FCR  FKCO 

NO)  , )iYo.<CFo1l  ELFilENT  SPA),  (FI),  CHOkC  (FT),  vOCKUINATES  X,Y,Z  FKCO 

OF  MIOFCIHT  (FI),  uIHlCRAL  ANGLl  uF  V-FCIL  (OtG),  VlRTICAL  LIFT  FKCD 

SLOFL  (K0-<02/H0-<U)  , ASF  IN  THE  FA,-Tok  AR/(AR*ASF)  FOk  FINITE  FKOC 

SPAN  FKCO 

FKOO 

McAO  (5,970)  CPL(I)  , SPAN  (I ) , oHOl.O  (I)  ,S  (I ) , YF{  I ) , ZF  ( I ) , uG  AKMA  (I ) , CL  FKCC 
2Z( i) ,AGH(I)  FKOO 

HRiTC (6,971)  Cl-L (I) , SPAN (I) ,lHOKU (I) , S (IT , YF ( I ) , ZF ( I J ,OGAMKA(l) ,CL  FMCC 
2Z(J),AS?(I)  FKOO 


WmIIE (1,  )70)  CPL(l) , SPAN (I) ,CHORO(I) , S (I ) , YF ( I ) , ZF ( I ) , JGAHKA(I) ,CL  FKC 


10 

11 

12 

13 

14 

15 

16 
17 
Id 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 
26 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
62 

63 

64 

65 

66 


55 


r>  n o t** 


c 


c 

c 

c 

c 

c 

c 


ZZ(I) ,ASP(I) 

FHOO 

67 

loa 

CONTINUE 

FMOO 

66 

WKlTt(6,2212) 

FNOO 

69 

9515 

CONTINUE 

FKOC 

70 

WRITE  (6|dQ0e} 

FRl 

261 

XG  s 0. 

PRl 

282 

FACT*0. 017453293 

FRl 

263 

PRl 

284 

EPS  > 0.001 

P.Rl 

285 

K = 2 

FRl 

286 

SECTS  = sri(i) 

FRl 

287 

OlFF  = STK2)  - SECTS 

FRl 

236 

SECTE  3 STK2J  ♦ OIFF 

PRl 

289 

IF  (SlCTc  .GT.  (ST1(3)»EPS))  GO  TO  956 

PRl 

290 

IF  (;.OS<5ECTE-STl(3) ) .LE.  EPS)  SECTS  « STK2)  - 0.5*OIFF 

PRl 

291 

HOS  * NST  - 2 

PRl 

292 

00  955  N^ltNUS 

PRl 

293 

K = N ♦ 1 

PRl 

294 

ST<N)  = STICK) 

PRl 

295 

OIFf  = STl(K)  - SECTS 

FRl 

296 

SECTE  = STICK)  t OIFF 

PRl 

297 

IF  CCK+1) .EQ.NST  .AND.  SECTE. GT. CST 1 CKST) »FPS ) ) GO  TO  956 

PRl 

298 

IF  CCK4D.LT. NST  .ANC.  SECTE. GE.  CST 1 CK4  1) -EPS)  > Gu  TO  956 

FRl 

299 

OSCN)  = SECTt  - SECTS 

PRl 

300 

SECTS  = SECTE 

PRl 

301 

555 

CONTINUE 

PRl 

302 

GO  TO  957 

PRl 

3 03 

956 

WRITE  Co, 2000)  STICK) ,SriCK4l) , SECTE 

PRl 

304 

2000 

^O^M«T  C*1  STATION  NUriSEn  ERROR  -*/l 3X ,*SECT ION  ASSOCIATES  ♦ 

PRl 

305 

2 

♦WITH  jrATj.ON*,F9.3,*  INCLUDES  S TATI  ON*  ,F« . 3 , • . 13X , 

PRl 

306 

2 

♦cNC  OF  SiCTION  =*,F9.3,*.  CORRECT  STATION  NUNOERS  ANU  RERUN.*/ 

PRl 

307 

2 

26X,*-  PRUGRAK  STOP  -*) 

PRl 

308 

STOP 

FRl 

3 09 

957 

CONTINUE 

PRl 

310 

FRl 

311 

NUT 

sNUMELR  OF  OFFSETPOiNTo  fuK  EAcH  SECTION 

PRl 

312 

N.1A 

3=NUH'JtR  OF  NA3SPCINTS 

PRl 

313 

NOS 

sNUrt[.Ei\  OF  STATIONS 

PRl 

314 

1T  = 

0 NL«ffS0INi.KTIAf1JMcHTS,t1A3S  ANO  CENTEn  OF  CRAVITT  FOR  EACH  SECTICN 

PRl 

315 

li  IfR-UT 

PRl 

316 

ST  = 

THE  distance  from  FORWARD  FErPENOICULAR  TO  THE  STATIONS 

PRl 

317 

Oi= 

THE  LENGTH  OF  THE  STATIONS 

PRl 

318 

DC 

An=THt.  UiArt  OF  THE  SHIP 

PRl 

319 

FRl 

320 

EL=ELL/2.0 

PRl 

321 

cL2=tL*Eu 

FRl 

322 

tL3=f.L2*EL 

PRl 

323 

DRAFT  = AoSlYClOiNUT)) 

FRl 

324 

00  9060  I-1,H2 

PRl 

325 

J = SI  1(1)  4 , 0001 

FRl 

326 

9060 

IF  CJ  .El.  10)  DRAFT  = ASS C Y ( 1 -1 , NUT) ) 

PRl 

327 

OMAX  = ORAFT 

PKl 

328 

OU  5 K=l,NOS 

PRl 

329 

30  5 J=1,NUT 

PRl 

330 

TEkH  = ASSCYCK,JD 

PRl 

331 

5 

IF  CliHAX  .LT.  lERrt)  ONAX  = TERN 

PRl 

332 

00  2l0  K=1,N0S 

PRl 

333 

56 


OS(K)=CS(K)»ELL/20. 

PRl 

33A 

ST  (K)  = S7  U)*fl.L/20. 

FRl 

335 

200  CCKTIHUE 

PRl 

336 

IF(IT)  70, /1, 70 

PRl 

337 

70  COKTII.UE 

PRl 

336 

c 

PRl 

339 

c 

ZG=Z-COORCINATE  OF  CENTEk  OF  GRAVITr  WITH  RESPECT  TO  THE  CHOSEH 

PRl 

3<>0 

c 

COl/«.uIS-TE-SYSTtrt  IH  HATtRPLANE 

PRl 

3<fl 

GO  TO  72 

PRl 

3A2 

71  CO^TINUE 

PRl 

3A3 

c 

FRl 

31,  A 

c 

CALCULATE  TOTAL  MASo=THAS 

PRl 

345 

c 

CALCULATE  Oc-NTEk  OF  GitAVITY 

PRl 

346 

c 

calculate  rtoMENTS  OF  INERTIA  mNQ  CENTkIFUGAL  HOHENTS 

PRl 

347 

c 

PRl 

346 

THAS=0.0 

FRl 

349 

XG=0.0 

PRl 

350 

ZG=0.0 

FRl 

351 

DO  ^ 1=1,NMAS 

PRl 

352 

Tf1AS=TkHi  + PMAsa) 

FRl 

3 53 

XG=XG*PrtAS(I)»XMAS(I) 

PRl 

354 

2G-ZG*FMaS  (U»ZmAS(I) 

PRl 

355 

9 CCNTINUt 

PRl 

356 

XG-XG/I1AS 

PRl 

357 

ZG=ZG/THuS 

PRl 

358 

El<»4=0 .0 

PRl 

359 

£155=0.0 

PRl 

360 

,;166=0  < 0 

PRl 

361 

E1A6=0.0 

PRl 

362 

00  10  I=1,NHAS 

PRl 

363 

XMAS  aj  = XKAS(I)  -XG 

Fkl 

364 

10  CONTlNLc 

FRl 

3o5 

00  11  1=1,., MAS 

PRl 

366 

Z02=ZMAS(XI  *»2 

FRl 

367 

£ IA<*=..  Xa4  » PMA S C I ) • ( Z C2 ♦KKv,  ( I ) » • 2) 

PRl 

3o6 

ElS5=El!>u+PMAS  ( I)  ♦ (ZC2tX.HAS(  I)  •»2) 

PRl 

369 

Ei66=E165  + PfiAS  <H  • ( X MAS ( I ) '*2*  Y.MA S (I)  *»2 1 

PRl 

370 

eiA6=LX!» COMMAS  (I)  •XHAS(1}*Z«AS  (XI 

PRl 

371 

11  CONTINUi 

PRl 

372 

EIAA=.£I,,,/TMAS/ELL/ELL 

FRl 

3 73 

E155=£I557TflAS/ELL/ELL 

PRl 

3 74 

Ei6b=fcl65/T«AS/L,-L/£l.t. 

Fkl 

3 75 

Ci A6=tl4o/TMAS/£LL/i LL» (-1. 1 

PRl 

3 76 

72  CONTINUE 

FRl 

377 

c 

FRl 

378 

c 

EIAAs  (EuLL-kaOIUS  of  G YF.ATl  OK/L J » »2 

PRl 

379 

c 

tX55=  (FlTCH-RAuiUs  OF  GYRAT  ICN/l)  *'•2 

PRl 

360 

L 

£166=  (YAH-kAOiUS  OF  GYRATiON/L) ’'E 

PRl 

381 

L 

E lAb=CE NT KiFUoAL- MOMENT -X-Z/MASS/L/L 

FRl 

382 

C 

PRl 

383 

C 

PRl 

384 

C 

CALCULATION  UF  HYCKUSIATIC  QUANTITIES 

PRl 

385 

c 

PRl 

3 86 

SOAM1I  = 0.0 

FRl 

387 

AH  (1)  = 0. 0 

PRl 

388 

SASni  =0.0 

PRl 

3 89 

H6M(1) =0.0 

PRl 

390 

57 


n o o o o c 


c 

c 

c 


H83(l) =0.0 
MOn«NCa 
MACxNOStl 
ftUD*HACtl 
SQMk(MuJ>=0. 0 
AH(NUO><0.0 
SAS(HUC)=0.0 
HoM(noO)  =0.0 
riB3(KUC)=0.0 
SS(1)  « jTKD/lO. 

SS(fiUU  = iTl(NSI»/10. 

00  13  K=2|HA0 

SS(tO  = ST{IPl)/ei- 
00  17  J=1,NUT 
XUJ)»XUPliJl/fcL 
Ti tJ)»YllPliJ) /EL 
XY(JI=XI(J)*rI{J) 

17  CONTlNL'b 

SQAk(K)  = 2. 0*AaS (SlMPUfUYI , XI , NUT)  ) 
A«(K)=-2.0*SIHPUN(YI ,XY,NUT) 
SAS(K)=Si<fO*SQAK(K) 
ri03<K)=2.*xaPl,lJ**3/EL3 
13  CONTINUt 

IVOL=blrtPUN(SS  ,SaA«?,KUO) 

TPbT  = SirtPU.')(SS,SAS,rtUC)/TtfOL 
TPCHsSlMPUHCSb  »H33,MUC) 
Cdtf=0.5*5xMPUN(SS,  AK,f1UO»/TVOL 
IFdPOlL-l)  51,51,52 
52  FXuosFX03/£L 
FZC6=F2CiJ/£lU 
FVCLsFV0t/EL3 
HVCL»T\^CL 
T VOL*HVoL+FVCL 

TPSI* (TPbr»HV0L*FXC3*FVoc) /TVOL 
UBV=(C8y*H\/0L*FZC3»FV0t)  /TVOL 
51  CONTINUE 

jJH0=7F.AS/(rV0L*tL3) 

oMC=C0V*7PCrt/3.0/Ty0L*0.5 

IVOL=yOLUMt  OF  THt  HULL/ (L/2) **3 
TPSr=LCI.GirU01UAL  CcNTcS  OF  tjCiYANCY/ U./2) 
C6V=VErI1v.A»  center  OF  BOYANCY/u 
cncsneihlehter  height  over  HAIESPLANE/L 


OAlCULATxCN  of  heave-heave, PITbH-PITCH, heave-pitch 

00  22  X=2,HA0 

1P1=K-1 

oS(K)=Sr  (IHD/EL 
HtlF(K)  =xaPl,l»/EL 
22  CONI  INGE 

DO  26  K=l,MUU 
SPD=i3(K) -IPSI 
sPO=-SF0 

iHB(N)  =1>P0»HQM(K)  * (-1.) 


PRl 

PRl 

FRl 

PRl 

PRl 

Ffil 

PRl 

PRl 

PRl 

PRl 

FRl 

FRl 

PRl 

PRl 

FRl 

FRl 

PRl 

PRl 

FRl 

PRl 

FRl 

PRl 

PRl 

PRl 

PRl 

PRl 

PRl 

PRl 

FMCO 

FMCD 

FHCD 

FMOO 

FKCO 

FMOO 

FKCO 

FMCO 

FMOO 

FMOC 

FRl 

PRl 

PRl 

PRl 

PRl 

FRl 

PRl 

PRl 


restoring  GOEFFICI  FRl 
PRl 
PRl 
PRl 
PRl 
PRl 
PRl 
PRl 
FRl 
PRl 
FRl 


391 

392 

393 
39A 

395 

396 

397 

398 

399 
<•00 
<•01 
V02 
<•03 
<^0<^ 
<•05 
A 06 
A07 

408 

409 

410 

411 

412 

413 

414 

415 

416 

417 

418 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 

419 

420 

421 

422 

423 

424 

425 

426 

427 

428 
4 29 
4i0 

431 

432 

433 

434 

435 
4 36 
437 


58 


non 


HS3(^) =5=0*5h3(K)  • (-1.) 

26  CuNIlNUF 

<Foj  = i..J»  j lMPclN(iS  iriGf'.MUOl  /rVOL 
r\M35  = -2.  3*JiMPON(ii,oh3,MU0>/rV0L 
;iH55  = Sl'^Pu:nii,Hib,  lUOl/rvOL 
COM=».Jb{Z^/F>.L-C'lC) 

NCN-NUl-1 

IXaST  = l;UMduK  OF  IHj  STATIOi*  HH;Kc  i£PA(vMriON  IK  WATcPPLAHc  a£GIK 

CALL  Fulfill 

kcIUKK 

END 


COC  6700  - P R 1 k T 1 - 


PNl 

— VERSION  U - COC  6700  - P R 1 N T 1 - JUNE.  1972 PNl 

PNl 

SUBROUTINE  PRINTI  PNl 

COMMON  AM (27) ,NUT,NMAS.N0S.ST(2S) .os  125) .EU .ELL . X (25 . 8 ) .Y(25.R) .PmPNI 
US (27) .XMAS (27) .2MAS(27) .RRG (27) . XG, ZG. TMAS.E UA .E 155.E 166 .F U6 . TPPNl 
2ST.RF33.RM35.RM5S.0GM,01P.K,N,T VOL. ALFA (40.1 1 ) .BET A (40 . 1 1 ) .HDG( 10)PN1 
3.FN(S) .8AM(30).COG(10) .SOG(IO) .OMAX .OMIN.NFR .NOK .NOR .NOH .OMEN (40 ) .PNl 
4FR (7.6) .XX (25.7)  .YY (25.7) ,OEL(25.7) .Sn£ (25.7) . CSE ( 25 . 7 ) .EN 1 ( 25 . 7 ) .PNl 
5UN.0MEGA. I0.T1T0(12) .WORO.NON. IXAST.HOGl ( 10) . IT.CBV.CHC.PRNTOP  PNl 

COMMON  STl (27) .YHAS(27) . BEAM. GRAFT , OMAX. IRQ. ML . IENO. IB ILGE . I PRES.  PNl 
2VNY.GRAV.AM00L.M00.AKEELL.8EAMKL.ITS125) .R0(25) .RF0(25) .OELTAO (25) PNl 
2.RKO(25) .S0(25) .C0SPH0(25) .PHIf)(251 .STPR(25) .THMO(SO)  PNl 

COMMON  NkSTP.INWSTP(12l  PNl 

COMMON  /TEMP/  ST2(29) .OSl (27) .XMASl (27) .SOAR(27) .SAS(27) .HBM(27) .PNl 
2 HB3(2n .SS(27) .XI (8) .YI (8) .XY(8) .SHB(27) .MSB (27) .0UM3 (4704)  PNl 


r 


COMkON  /UOOPPN/  STLOt?<.» ,wnRO2tWOR03. IOAMP,lPPCNTtH2(5) tH3(5)  . PHI 
2 PB2(25.5) .P83(25t5) »ICUASS  PNl 

integer  PRNTOP  PNl 

OATA  min  /3HM1N/  PNl 

10  format 550H0NUMSER  OF  HEA0INGS»16)  PNl 

11  FOPMATdOH  HEAOIN'  -flFlO.A)  PNl 

12  format (26H0NDMBER  FROUDE  N|JM8£RS»I6)  PNl 

13  F0RHAT(16H  FROUOE  NUHRERS-8F  10.<.)  PNl 

U FORMAT (•ONUMBER  OF  WAVE  STEEPnESSES««I6)  PnI 

15  format (•  WAVE  STEEPNESSES-«12I6l  PNl 

16  format (23H0NUMBER  OF  WAVELENGTHS-16)  PNl 

17  FORMAT (1  AH  WAVELENGTH/L-aFlO.A)  PNl 

209  format  (1H1.12A6)  PNl 

300  FORMAT!///)  PNl 

301  FORMAT(103H  definitions*  OUTPUT  SCALING  INFORMATION,  OIMENSIONALl 2PN1 

lATION  factors.  ANO  coordinate  SYSTEM  DESCRIPTION)  PNl 

302  FORMAT  (•  M-OrSPLACEO  MASS  V-DISPLACED  VOLUME  • PNl 

2 •RO»OENS1TY  OF  fluid  {M/v)  G-ACCELERAT IDN  DF  GRAVITY*)  PNl 

303  FORMAT  (*  FN»FR0u0E  NUMBER  8-BEAM  L-LENGTM  BETWEEN  PERPE*PNl 

2 *NDICULARS»/»  AHPL.’AMPLITUDE  R-WAVE  AMPLITUDE  LAM-WAVEL»PN1 
2 *ENGTH  KaWAVE  NUMBER  (360  DEG/LAM)  K», 1H*,9R-WAVE  SLOPE*/PM' 

2-  phase-phase  lag  (DEGREES)  WITH  RESPECT  TD  THE  MAXIMUM  wavE  • PNl 
2 -ELEVATION  AT  THE  ORIGIN  OF  THE  X.Y.Z  COORDINATE  SYSTEM,*)  PNl 

30A  FORMAT  (•  WE-WAVE  FREQUENCY  OF  ENCOUNTER  (RAO/SEC)  * PNl 

2 •WE(NO)»  WE  •*1H*,*  S0RT(L/6)  (NONDIMENSIONAL) *)  PNl 

305  F0RMAT;27h  A(l,l)aA00E0  MASS  IN  SU»GE*AX,26H  A{2,2)*AOOED  MASS  IN  PNl 

1SWAY,4,X.27H  A(3.3)«A0O£O  MASS  IN  HEAVE*AX.2flM  A (A, A ) -ADDED  MOMENT  PNl 
2IN  ROLL)  PNl 

306  F0RMAT(29H  A(5.5)-AOOEO  MOMENT  IN  PITCH, AX, 27H  A(6,6)-AD0ED  MQmENTPNI 
1 IN  YAW,AX,A7H  A ( 3 , 5 ) -COUPLED  ADDED  MASS  FOR  PITCH  INTO  HEAVE)  PNl 

307  format (ASH  A(2,A)>C0UPLED  ADDED  MASS  FOR  ROLL  INTO  SWAY,AX,AAH  A(2PNl 

l,6i -COUPLED  ADDED  HASS  FOR  YAw  INTO  SWAY)  PNl 

308  F0RmaT(A6h  A(A.6)-C0UPLE0  \DDE0  MOMENT  FOR  YAW  INTO  ROLL)  PNl 

309  FORMAT(21h  a(l,l)-SURG£  Da -<p1N6,AX,20H  B(2,2)-SWAY  DAMPING, AX, 21H  PNl 

18(3,3)»HEAVE  damping, AX, 20H  B(A,A)-R0LL  DAMPING)  PNl 

310  F0RMAT(21H  e(5,S)aPITCH  0 l •<PING,AX, 19H  B(6,6)»YAW  DAMPING, AX, AOH  8PN1 

1 (3,5)»C0UPLE0  PITCH  INTO  '■■AVE  DAMPING)  PNl 

311  FORMAT(30H  8(2,A)-C0uPLEC  ^OLL  INTO  SWAY  DAMP ING , AX , 37H  B (2,6) -COUPNl 

IP4E0  YAW  INTO  SWAY  0AMPI'--.,AX,37H  0 ( A , 6 ) -COUPLED  YAW  INTO  ROLL  DAMPNl 
2?ING)  PNl 

312  FORMAT(63H  A(l,l)  ,A(2,2)  A .0  A(3,3)  ARE  DIMENSIONED  WITH  respect  TPNl 
10  MASS.,2X,A8H  A(A,A) ,A(5«5) ,A(6,6)  ANO  A(A,6)  ARE  DIMENSIONED)  PNl 

313  F0RMAT(26H  WITH  RESPECT  TT  MASS*L*L . , ?X , 65H  A (3,5) , A (2,6)  ANO  A(2,PN1 

lA)  ARE  DIMENSIONED  WITH  RESPECT  TO  MASS*L.)  PNl 

31A  FORMATdOOH  THE  DAMPING  C 'EFFICIENTS  ARE  DIMENSIONED  WITH  RESPECT  PNl 


ITO  THE  CORRESPONDING  FAC7'::»S  • SOPT(G/L). 


) 


PNl 

PNl 

PNl 

PNl 

PNl 


315  FORMAT  (*0EXCITING  FORCES  ARE  SCALED  BY  * , 7HM*G*R/L , * . * 

2 ‘Exciting  moments  are  scaled  by  *,5hm*g*r, ih.) 

316  format  (•  SURGE, SWAY  ANO  m£avE  MOTIONS  ARE  SCALED  BY  R.  • 

2 *ROLL, PITCH  AND  YAW  M0TI7NS  ARE  SCALED  BY  K*,3H»R./ 

2 • SHEAR  FORCES  are  SCALED  BY  *, 1 OHRO*G*B*L*R , *.  MOMENTS  ARE  *PN1 

2 ’SCALED  BY  •,  13HR0*G*R*L-*L*R.)  PNl 

317  FORMAT (63H  THE  REFERENCE  COORDINATE  SYSTEM  FOR  THE  MOTIONS  IS  AS  FPNl 

10LL0WS-)  PNl 

318  format (1 lAHOTHE  ORIGIN  IS  ON  THE  CENTERLINE  AND  LIES  IN  THE  LOAD  WPNl 

lATER  PLANE  WITH  A LONGITV- INAL  LOCATION  THE  SAME  AS  the  CG.)  PNl 

319  FORMAT (76H  THE  X-AXIS  IS  -LONG  THE  CENTERLINE  AND  POSITIVE  IN  THE  PNl 
lOIRECTIOH  OF  THE  aP.,2X,3'M  THE  Y-AXlS  IS  POSITIVE  TO  STARBOARD.)  PNl 

320  FORMAT(32H  THE  Z-AXIS  IS  POSITIVE  UPWARDS.)  PNl 

321  FORMAT (88H0THE  POSITIVE  DIRECTIONS  OF  THE  MOTIONS  ARE  THE  SAME  AS  PNl 

ITHE  POSITIVE  directions  C"  AXES.)  PNl 

322  format (120H  THE  REFERENCE  COORDINATE  SYSTEM  FOR  SEA-LOAOS  HAS  ITS  PNl 
lORiGIN  ON  THE  centerline  '"f  THE  STATION  AND  AXES  PARALLEL  TO  THE  )PN1 

323  FORMAT (31H  MOTION  COOROrfATE  SYSTEM  AXES.)  PNl 

A31  FORMAT  (•  THE  LENGTH  OI’-’ENSION  USED-*,A6,*.  THE  FORCE  0IHENS*PN1 

ITICS  OF  THE  SHIP)  PNl 


18 

19 

20 
21 
22 
23 
24. 

25 

26 

27 

28 

29 

30 

31 

32 

33 
34. 

35 

36 

37 

38 

39 

4.0 

4.1 

4.2 

4.3 

4,4, 

4.5 

4.6 

4.7 
4)8 
4.9 

50 

51 

52 

53 
5A 

55 

56 

57 

58 

59 

60 
6! 
62 
63 
64, 

65 

66 

67 

68 

69 

70 

71 

72 

73 
7A 

75 

76 

77 

78 

79 

80 
81 
82 
85 


60 


IT  - V ■ 


o o o 


THE  STATIONS  USING  A SCALE 
THAT  THE  station  IS  FOPWARO 


2 FORMAT(8F10.4) 

33  FORMAT (20H0NUMBER  OF  STATI0NS-I6) 

36  FORMAT(133HOOISTANCE  FROM  THE  F.P.  TO 
IF  L.B.P.-20.0  (A  MINUS  SIGN  INDICATES 
20F  THF  F.P.) ) 

37  F0RMAT(17H  STATION  SPACING-) 

39  FORMAT (37H0NUMBER  OF  OFFSET  POINTS  PER  STATION-12) 
uct  FORMAT  (60H  OFFSET  PO I NTS  ( E XCLUO I NG  THE  EXTREME  FORE  AND  AFT 
INS)-) 

A2  FORMATdOH  STATION  Ffl.3) 

A3  FORMATIAH  Y-  BFIO.A) 

AA  FORMAKAH  Z-  8F10.A) 

AS  FORMAT (23H0NUMBER  OF  MASS  POlNTS-16) 

A6  FORMAT (2SH  MASS  FOR  EACH  MASSPOINT-) 

A7  format (69H  MASS  POINT  COORDINATES  IN  THE  MOTION  REFERENCE  S 
IRIGIN  AT  CG) . ) 

A8  format (Ah  Z-  8F10.A) 

FORMAT niHOLENGTH  BETWEEN  PFRPFNOiCUUARS-FlO.A) 

FORMAT(17H  beam  at  MIOSHIP-FIO.A) 

FORMATn2H  TOTAL  MASS=F10.A) 

FORMATn?H  (ROLL-RADIUS  OF  GYRAT  lON/L)  ••2-E  1 A . 6 ) 

F0RMAT(33H  (PITCH-RAOIUS  OF  GYRAT lON/L) ••2-E1A.6) 
format (3IH  (YAW-RAOIUS  OF  GYRAT lON/L) **2-E 1 A.6) 

FORMAT (39H  CENTRIFUGAL  MOMENT  YAW-ROLL/MASS/L»»2»E 1 A .6 ) 
FORMAT(/27H  DISPLACED  VOLUME/ (L/2) ••3-ElA. 6) 


31 

325 

50 

51 
S? 
S3 
5A 

55 

56 

57 

58 

59 

60 
61 
62 


LONGITUDINAL  CENTER  OF  BOYANCY/ (L/2) -E 1 A.6) 
VERTICAL  CENTER  OF  BOY ANCY/L-E 1 A .6 ) 
MFTACENTER  HEIGHT  OVER  WATE-PLANE/L-E 1 A .6 ) 

heave-heave  restoring  COEFFICIENT-EIA.6) 


FORMAT ( 38H 
FORMAT ( 30H 
FORMAT ( 37H 

format ( 35H 

formathsh  heave-pitch  restoring 
F0RmaT(35H  pitch-pitch  RESTORING 
F0RMAT(61H  distance  of  CENTER  OF 
1T10N=E1a.6) 

63  F‘bRMAT(?6H  Z-COORDINATE  OF  THE  C.G. 

900  FORMA'T  (SIHO 
910  FORMAT(ahOIT*I6.8X.7H  IXAST=I6) 

9j0  FORMAT (A8HOSECTIONAL  MASS  AND  MASS  DISTRIBUTION 
RaO  format (26H  XMAS  for  each  MASS  POINT-) 

9S0  FORMAT (26H  YMA$  FOR  EACH  mass  POINT-) 

960  format (?6H  ?MAS  FOR  EACH  MASS  POINT-) 

970  FORMAT (?5H  RPG  FOR  EACH  MASS  ROINT-) 

8000  format  (•  STATION  SPACING-*) 

8010 


COEFFIC1ENT-F1A.6) 

COEFF1CIFNT-E1A.6) 

GRAVlTv  FROM  THE  FORWARD  MOST 


E1A.6) 

ADDITIONAL 


INPUT  DATA) 


INPUT  DATA) 


FORMAT  (9F1A.6) 


OUTPUT 


IF  (PPNTOP  .EO.  MIN) 
WRITE  (6,299)  TITO 
WRITE(6,300) 
WR1TE(6,301) 
WRITE(6,300) 

WRITE (6.302) 
WRITE(6.303) 

WRITE (6, 30A) 

WRITE (6.300) 
WRITE(6.30S) 
WRITF(6,306) 

WRITE  (6.  307) 
WRITE(6,308) 
WRITE(6.309) 
WRITE(6,310) 
WRITE(6.311) 
WR1TE(6,300) 
WRITE(6,312) 
WRITE(6.313) 

WRITE(6, 31A) 


GO  TO  2000 


PNl 

86 

PNl 

87 

OPNl 

88 

PNl 

89 

PNl 

90 

PNl 

91 

PNl 

9? 

OPNl 

93 

PNl 

9a 

PNl 

9S 

PNl 

96 

PNl 

97 

PNl 

98 

PNl 

99 

OPNl 

100 

PNl 

101 

PNl 

10? 

PNl 

103 

PNl 

IOa 

PNl 

lOS 

PNl 

106 

PNl 

107 

PNl 

108 

PNl 

109 

PNl 

no 

PNl 

1 1 1 

PNl 

112 

PNl 

113 

PNl 

IK 

PNl 

1 IS 

PNl 

1 16 

APNl 

117 

PNl 

118 

PNl 

119 

PNl 

120 

PNl 

121 

PNl 

122 

PNl 

123 

PNl 

12A 

PNl 

125 

PNl 

126 

PNl 

127 

PNl 

128 

PNl 

129 

PNl 

130 

PNl 

131 

PNl 

132 

PNl 

133 

PNl 

13A 

PNl 

13S 

PNl 

136 

PNl 

137 

PNl 

138 

PNl 

139 

PNl 

lAO 

PNl 

lAl 

PNl 

1A2 

PNl 

1A3 

PNl 

lAA 

PNl 

IAS 

PNl 

1A6 

PNl 

1A7 

PNl 

1 A8 

PNl 

1 A9 

PNl 

150 

PNl 

151 

61 


I 

( 

( 

1 

L 


WHITE(6,315) 

NRITE(6«316) 

WRITE(6.300) 

WRITE(6.317) 

WRlTE(6«3in) 

WRlTE(6f31'J) 

WRITE<6.320) 

WRITE(6«321) 

WR1TE(6.300) 

««ri  4 I u « « «/CC.  I 

WRITE(6«323) 

WRITE(6.300) 

WRITE  (6«431)  W0R0«W0R02«W0Rn3 
WRITE(6«324) 

WRITE(6«300) 

N0S2  « NOS  ♦ 2 
WRITE(6.33)  NOS2 
WRITE(6«36) 

NOSHAL=«NOS 

N0SHIL»N0SHAL*2 

WRITE  «6. 2)  (STUK)  ,K«l,NOSHIU 

WRITE(6.37) 

WRITE(6.2)  (OS(K) ,K-l.NOSHAL) 
WRITE(6.39)  NUT 
WRITE(6«40) 

00  41  K«1,N0SHAL 
IK»K*1 

WRITE(6«42) (STl (IK)I 
WRITE(6.43)  (X(K»J) tJ«l.NUT) 
WRITE(6.44)  (Y(K,J) ♦J«1,NUT) 

41  CONTINUE 

IF(IT)  73,74,73 
74  CONTINUE 

WRITE(6,45)  NMAS 
WRITE<6,46) 

WRITE(6,2)  (PMASU)  ,I»1,NHAS» 
WRITE(6,47) 

WRITF(6,43)  (XMAS(I) ,I«1,NMAS) 
WRITE(6,48)  (ZMAS{I),I«1,NMAS) 
73  CONTINUE 

WRITE(6,31)ELL 
WRITE(6,325)  BEAM 
WRITE(6,55)  TVOL 
WRITE(6,56)  TPST 
WRITE<6,57)  C8V 
WRITE(6,58)  CMC 
HRITE(6,S9)  RF33 
WRITE(6,60)  RM35 
HRITE(6,61)  RM55 
WRITE(6,62)  XG 
WRITE(6,63)  ZG 
WRITE(6,50)  THAS 
WRITE(6,51)  EI44 
WRITE(6,52)  EI55 
WRITE(6,53)  EI66 
WRITE(6,54)  EI46 
WR»TE(6,900) 

WRITE(6,910)  IT.lXAST 
IF(IT)  1000,920,1000 
920  WRITE(6,930) 

WRITE(6,940) 

00  20  I»1,NMAS 
XHASl (I)=XHAS(I) *XG 
20  CONTINUE 

WRITE (6. 2)  (XMAS  Ml) ,I  = 1,NMAS) 
WRITE(6,9501 


PNl  152 
PNl  153 
PNl  154 
PNl  155 
PNl  156 
PNl  157 
PNl  158 
PNl  159 
PNl  160 
PNl  161 
PNl  162 
PNl  163 
PNl  164 
PNl  165 
PNl  166 
PNl  167 
PNl  168 
PNl  169 
PNl  170 
PNl  171 
PNl  172 
PNl  173 
PNl  174 
PNl  175 
PNl  176 
PNl  177 
PNl  178 
PNl  179 
PNl  180 
PNl  181 
PNl  182 
PNl  183 
PNl  184 
PNl  135 
PNl  186 
PNl  187 
PNl  188 
PNl  189 
PNl  190 
PNl  191 
PNl  192 
PNl  193 
PNl  194 
PNl  195 
PNl  196 
PNl  197 

’ PNl  198 

PNl  199 
PNl  200 
PNl  201 
PNl  202 
PNl  203 
PNl  204 
PNl  205 
PNl  206 
PNl  207 
PNl  208 
PNl  209 
PNl  210 
PNl  211 
PNl  212 
PNl  213 
PNl  214 
PNl  215 
PNl  216 
PNl  217 

62 


WRlTE(6t2) (YHAS(I) tI«l«NMAS) 

PNl 

218 

WRITE(6«960) 

PNl 

219 

WRITE (6.2) (ZHAS(I) .I-l.NHAS) 

PNl 

220 

WRITE(6,970) 

PNl 

221 

WRITE (6.2) (RR6(I> .I-l.NHAS) 

PNl 

222 

1000 

CONTINUE 

PNl 

223 

WRITE(6.10)  NOH 

PNl 

224 

WRITE(6*lii (HDGl (JJ) .JJ*i.NuK) 

PNl 

225 

WRITE(6.12)  NOB 

PNl 

226 

WRITE16.13)  (FN(JJ) .JJ»1 .NOB) 

PNl 

227 

WRITE(6.14)  NWSTP 

PNl 

228 

WRITE(6.15) (INWSTP(JJ) ,JJ«1. NWSTP) 

PNl 

229 

WRITE(6.16)  NOK 

PNl 

230 

WRITE(6.17)  (RAM(LL) .LL«l.NOK) 

PNl 

231 

WRITE(6.9003) 

PNl 

232 

9003 

format (29H1 ADDITIONAL  INPUT  INFORMATION) 

PNl 

233 

WR.ITE(6.591)  lENO 

PNl 

234 

591 

FORMAT(6HOIEND«I6) 

PNl 

235 

WRITE(6,592)  101LGE 

PNl 

236 

592 

FORMAT(0H  IBILGE»I6) 

PNl 

237 

WRITE(6.594)  VNY.GRAV.AMODL.MOO 

PNl 

238 

594 

F0RHAT(5H  VNY»F10.8.2X,6H  GRAV«F10.4.2X.7H 

AM0DL-F10.4.5H  M00-I6)  PNl 

239 

WR1TE(6,595) 

PNl 

240 

595 

FORHAT(8HOITS(K)«) 

PNl 

241 

WRITE(6.6) (ITS(K> .K-l.NOS) 

PNl 

242 

6 

F0RMAT(16I5) 

PNl 

243 

WR1TE(6.596) 

PNl 

244 

596 

FORMAT(7HOPO(K)*) 

PNl 

245 

WRITE (6.8001 ) (R0(K) .Xal.NOS) 

PNl 

246 

6001 

FORMAT(8F10.4) 

PNl 

247 

GO  TO  (651,650) .IBILGE 

PNl 

248 

651 

WPITE(6,597)  AKEELL.BEAMKL 

PNl 

249 

597 

FORMAT (8H0AKEELL-F10. 4, 2X.8H  BEAMKL-F10.4) 

PNl 

250 

WRITE(6.598) 

PNl 

251 

598 

FORMAT(0HORFD(K)«) 

PNl 

252 

WRITE (6.410) (RFO(K) ,K«l.NOS) 

PNl 

253 

WR1TE(6.599) 

PNl 

254 

599 

FORMAT (11HOOELTAD(K)») 

PNl 

255 

WRITE(6.410) (OELTAO(K) .K»l.NOS) 

PNl 

256 

HRITE(6.R001) 

PNl 

257 

9001 

FORMAT(8HORKO(K)») 

PNl 

258 

WRITE (6.4 10) (RKO(K) ,K=l,NOS) 

PNl 

259 

410 

FORMAT(12F10.4) 

PNl 

260 

WRITE(6,601) 

PNl 

261 

601 

FORMAT(7HOSO(K)*) 

PNl 

262 

WRITE (6,410) (SO (K) ,K=1 ,NOS) 

PNl 

263 

WRITE(6,602) 

PNl 

264 

602 

FORMAT(11HOCOSPHO(K)») 

PNl 

265 

WRITE(6,410) (COSPHD(K) ,K=1,N0S) 

PNl 

266 

WRITE(6,603) 

PNl 

267 

603 

FORMAT(9HOPHIO(K)») 

PNl 

268 

WRITE (6,410) (PHIO(K) ,K=1,N0S) 

PNl 

269 

650 

CONTINUE 

PNl 

270 

GO  TO  (653.652) .IPRES 

PNl 

271 

653 

WR1TE(6,604) 

PNl 

272 

604 

FORMAT(9HOSTPR(K)«) 

PNl 

273 

WRITE (6, 8001) (STPR(K) ,K=1,N0S) 

PNl 

274 

652 

CONTINUE 

PNl 

275 

WRITE(6,655) 

PNl 

276 

655 

FORMAT(9HOTHMD(K)«) 

PNl 

277 

WRITE(6,5060) (THMO(K) ,K»1 ,NHF) 

PNl 

278 

5060 

FORMAT(12F10.4) 

PNl 

279 

2000 

continue 

PNl 

280 

CALL  SEPART  (1) 

PNl 

281 

WRITE  (1,8000) 

PNl 

282 

WRITE  (1,8010)  (OS(K) ,K=1 ,N0S) 

PNl 

283 

63 


ooo  o <*>  o o o o o o o 


WRITE(ltSS) 

WRITE(li56) 

WRITE(lt57> 

WRITE11.58) 

WRITE(1.59) 

WR1TE(1.60) 

WRlTEd  *61) 

W3irE(l*62) 

WRITE(1*63) 

WRlTEd.50) 

WRITEII.SI) 

WR1TE(1.52) 

WRITE(1.53) 

WRITEd.54) 

RETURN 

END 


TVOL 

TPST 

CRV 

CMC 

RE33 

RH35 

RM59 

XG 

ZG 

TMAS 

EIA4 

E155 

EI66 

FI46 


-VERSION  4 - COC  6700  - P R 0 2 


JUNE*  1972- 


OVERLAY  (LINK2*2.0) 

PROGRAM  PR02 
CALL  SPRGl 
CALL  SPRG2 
ENO 

-VERSION  A - COC  6700  -SPRGl  - JUNE*  1972- 


SUBROUTINE  SPRGl 
programmer-  w.  frank. NSROC 

COMMON  AM(?7) ,NUT*Nmas*NOS.ST(25) *0S (25) .EL.ELL.X (25.8) *Y (25.8) *PI 
IAS  (27) *XHAS(27) *ZHAS(27) *RRG(27) .XG.ZG.TMAS.EI44.E155.EI66.EI46.TI 
2ST*RF33*RM35*RM55*OGM*OIP.K.N.TVOL.ALFA(40.11) .BETA(40.11) .HOGdO 
3*FN(5) *BAM(30) .COGdO) *S0G(10) .OMAX.OMIN*NFR,NOK.NOB.NOH.OMEN(40) 
4FR(7*6) *XX(25.7) *YY(25,7) ,0EL(25.7) .SNE (25.7) .CSE (25.7) *EN1 (25*7) 
5UN.0HEGA* I0.TIT0d2) .WORO.NON. IXAST.HDGl ( 1 0 ) * 1 T *CBV * CMC .PRNTOP 
COMMON  STl (27) ,YMAS(27) ,BEAM*DRAFT *0MAX * IRR.ML. IEND* IBILGE * IPRES* 
2VNY*GRAV.AM00L*M00*AKEELL*BEAHKL* ITS(25) *RD(25) *RFD(25) *DELTA0(25 
?*RKO( 25) *50(25) *C0SPh0(25) ,PHI0(25) *STPR(25) *THMD(50) 

COMMON  NWSTP* 1NWSTP(12) 

COMMON  /TEMP/  HORdO)  *IK(27)  *OUM3(4963) 

M0M=N0S-1 
NIXiNOS-2 
T0P=6. 283185 
NOSHAL=NOS 
00  22  Kxl  .NOSHAL 
ST(K)=ST(K)/EL 
no  20  J=1*NUT 
X(K,J)=X(K,J)/EL 
Y(K*J)=Y(K*J)/EL 
20  CONTINUE 

nS(K)=OS(K)/EL 
22  CONTINUE 

no  110  JJ*l*NOH 
HOG(JJ)>180.0-HOG1 (JJ) 

110  CONTINUE 

DO  168  JJ»1*N0H 

HOR ( JJ) =0 .01 7453293*HnG ( JJ) 

S0G(JJ)=S1N(HDR(JJ) ) 

168  COG(JJ)=COS(HOR(JJ) ) 

CALCULATION  OF  NON-0 IMENSIONAL  FREQUENCY  RANGES 


OTMIN  = 
OTMAX  = 


99999. 

0. 


PNl 

284 

PNl 

285 

PNl 

286 

PNl 

287 

PNl 

288 

PNl 

289 

PNl 

290 

PNl 

291 

PNl 

292 

PNl 

293 

PNl 

294 

PNl 

295 

PNl 

296 

PNl 

297 

PNl 

298 

PNl 

299 

LK2 

2 

•LK2 

3 

LK2 

4 

LK2 

5 

LK2 

6 

LK2 

7 

LK2 

8 

LK2 

9 

SPl 

2 

•SPl 

3 

SPl 

4 

SPl 

5 

SPl 

6 

SPl 

7 

SPl 

8 

1SP1 

9 

>SP1 

10 

SPl 

11 

■ SPl 

1? 

.SPl 

13 

SPl 

14 

SPl 

15 

SPl 

16 

SPl 

17 

SPl 

18 

SPl 

19 

SPl 

20 

SPl 

21 

SPl 

22 

SPl 

23 

SPl 

24 

SPl 

25 

SPl 

26 

SPl 

27 

SPl 

28 

SPl 

29 

SPl 

30 

SPl 

31 

SPl 

32 

SPl 

33 

SPl 

34 

SPl 

35 

SPl 

36 

SPl 

37 

SPl 

38 

SPl 

39 

SPl 

40 

SPl 

41 

SPl 

82 

SPl 

43 

64 


DO  6000  N>1«N0H 
00  6000  M>1,N0B 
TERM  » FN(M)*COG(N) 

00  6000  K-ltNOK 
FACT  « 6.283185/BAM{K» 

OTEMP  » ABS (SORT (FACT)  ♦ FACT»TERM) 
IF  (OTEMP  ,LT.  OTMIN)  OTHIN  » OTEMP 
6000  IF  (OTEMP  ,6T.  OTHAX)  OTHAx  « OTEMP 
EPS  a .0001 
SRLG  * SORT(ELL/GRAV) 

SROG  = S0RT(0MAX/GRAV) 

SRLO  » SORT(ELL/OHAX) 

WEHAX  » OTMAX/SRLG 
FACT  » WEMAX*SRDG 
IF  (FACT  ,GE.  1.)  GO  TO  6010 
C IRREGULAR  FREQUENCIES  00  NOT  EXIST 
IRR  = 1 

OMAX  = OTHAX  ♦ EPS 


KFR  = 10  SPl 

GO  TO  6020  SPl 

C irregular  FREQUENCIES  EXIST  SPl 

6010  IRR  = 2 SPl 

BT  = BEAH/ORAFT  SPl 

IF  (BT  ,LE.  A.)  CON  = .35  SPl 

IF  (BT  .GT.  A.)  CON  » .60  SPl 

OMAX  = (WEMAX»SROG  ♦ CONl»SRLO  SPl 

6020  OMIN  = OTMIN  - EPS  SPl 

CRIT  = .7»SRL0  SPl 

IF  (QMIN  .GE.  CRIT)  OMIN  * CRIT  - EPS  SPl 

IF  (IRR  .EO.  2)  KFR  s (OMAX  - OMIN) / ( .05*SRL0)  ♦ .9999999  SPl 

KFR  = HINO(KFR.AO)  SPl 

IF  (NFR  .LE.  0)  NFR  = KFR  SPl 

IF  (OMIN  .LE.  0.  .OR.  OMIN  .GT.  OMIN)  OMIN  » OMIN  SPl 

IF  (OMAX  .LE.  0.  .OR.  OMAX  .LT.  OMAX)  OMAX  ■ OMAX  SPl 

OMAX=OHAX*SORT(0,5)  SPl 

0M1N=0MIN»S0RT (0.5)  SPl 

00  18  Nal.NFR  SPl 

00  18  Laltll  SPl 

ALFA(N,L)«0.0  SPl 

8ETA(N.L)*0.0  SPl 

18  CONTINUE  SPl 

00  19  K=1.N0SHAL  • SPl 

00  21  J=1.N0N  SPl 

XX(K,J)  = .5*(X(X.J)«X(K,J*D)  SPl 

YY(K,J)=.5*(Y(K,J) *Y(K,J«n ) SPl 

XINT=X(K,J)-X(K,J»1)  SPl 

YINT=Y(K,J)-Y(K,J*1)  SPl 

0EL(K.J)*SQRT(XINT»*2»YINT»*2)  SPl 

SNE(K,J)=YINT/0EL(K,J)  SPl 

21  CSE(K.J)»XINT/0LL(K,J)  SPl 

19  CONTINUE  SPl 

IK(1)=1  SPl 

00  15  K=2,H0M  SPl 

15  IK(K)=2  SPl 

IK(N0S)=3  SPl 

00  35  K»1,N0S  SPl 

LIK=IK(K)  SPl 

GO  T0(36.27,28) tLIK  SPl 

36  CALL  PORT(STO)  .ST(l)  .ST(2)  .PtOtR.T)  SPl 

00  29  J=1,N0N  SPl 

29  ENl (K.J)=(SNE(l.J)*(0»XX(3.J)-P*XX(2tJ)*R»XX(l,J) )-CSE(l.J)*(0*YY(SPl 
13.J)-P*YY(2«J) ♦R«YY(1.J) ) )/T  SPl 

GO  TO  35  SPl 

27  CALL  PQRT(ST(K*1).ST(K),ST(K-1).P.Q.R.T)  SPl 

00  30  Jxl.NON  SPl 


30  ENl (K, J)= (SNE (K, J) *(0*XX(K*1 . J)-P*XX(K-1 ,J) ♦R^XX (K, J) ) -CSE (K, J) * (OSPl 


SPl 

SPl 

SPl 

SPl 

SPl 

SPl 

SPl 

SPl 

SPl 

SPl 

SPl 

SPl 

SPl 

SPl 

SPl 

SPl 

SPl 


AA 

A5 

A6 

A7 

A8 

A9 

50 

51 

52 

53 
5A 

55 

56 

57 

58 

59 

60 
61 
62 
63 
6a 

65 

66 

67 

68 

69 

70 

71 

72 

73 
7k 

75 

76 

77 

78 

79 

80 
ei 
82 
83 
PA 

85 

86 

87 

88 

89 

90 

91 

92 

93 
9A 

95 

96 

97 

98 

99 
100 
101 
102 
103 
lOA 

105 

106 

107 

108 
109 


65 


o o o o o o 


1 

•YY(K.1,J)-P«YY(K-1 ,J) *R*YY(K.J) ))/T 

SPl 

no 

GO  TO  35 

SPl 

111 

28 

CALL  PORT (ST (NIX) , ST (NOS) , ST (MOM) .P,(J,R,T) 

SPl 

112 

00  31  J«1,N0N 

SPl 

113 

31 

ENl (K, J) - (SNE (NOS. J) • (0*XX(NIX, J)-P*XX (MOM, J) ♦R»XX(NOS, J) ) 

-CSE(N0SSP1 

114 

1 

. J) *(Q*YY(NIX, J)-P«YY(MOM,J) «R»YY(NOS.J) ) )/T 

SPl 

115 

35 

CONTINUE 

SPl 

116 

00  101  K«1.N0S 

SPl 

117 

00  102  J»1.N0N 

SPl 

115 

ENl  (K.J)*EN1  (K.J! /SQRTd.iENl  (K,J)»*2) 

SPl 

119 

102 

CONTINUE 

SPl 

120 

101 

CONTINUE 

SPl 

121 

77 

RETURN 

SPl 

122 

END 

SPl 

123 

-VERSION  <t 


COC  6700 


S P R G 2 - JUNE.  1972- 


SUBROUTINE  SPRG2 
PROGRAMMER-  0.  EALT INSEN, ONV 


integer  H 


SP2 

-SP2 

SP2 

SP2 

SP2 

SP2 

SP2 

SP2 


COMMON  AM(27) .NUT .NMAS.NOS.ST (25) .05(25) , EL .ELL. X (25.8) ,Y(25,8) .PMSP2 
1AS(27) ,XMAS(27) .ZMAS(27) ,RRG(27) ,XG»ZG.TMAS.EIA4,EI55.EI66.EU6,TPSP2 
2ST,Rr33,RM35, RM55,0GM, DIP. K.N.TVOL. ALFA (40,11) ,9ETA (40.1 1),H0G(10)SP2 
3,FN(5) ,9AM(30) ,C0G(10) ,S0G(10) ,0MAX,0M1N,NFR,N0K .NOR.NOH.OMEN (40) ,SP2 


2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 


4FR (7.6) .XX (25.7) ,YY (25.7) .DEL (25.7) ,SNE(25.7) ,CSE(25.7) ,EN1 (25.7) ,SP2  14 
SUN, OMEGA, ID. TIT0(12) .WORD. NON, IXAST.HDGl (10) , I T .CBV.CMC.PWNTOP  SP2  15 

COMMON  STl (27) ,YMAS(27) ,BEAM,nRAFT,0MAX,lRR,ML,IEND.l8lLGE.IPRES.  SP2  16 
2VNY,GRAV,AMOOL.MOO.AKEELL,0EAMKL.1TS(25) ,R0(2S) ,RF0(25) ,DELTA0(25)SP2  17 
2,RK0(25)  ,S0(25) ,C0SPHn(25) ,PHI0(25) ,STPR(25) ,THMO(50)  SP2  10 


COMMON  NWSTP.INWSTP(12) 

COMMON  /TEMP/  BL0G(2.7,7) ,YL0G(2.7.: 
2 nUM3(l 1 16) ,AR1 (42) .AR2(42) .AI2(40) ,/ 
DATA  MIN  /3HMIN/ 

FM=1. 

V0L=TV0L 

NFM=NFR-1 

OOME= (OMAX-OMIN) / (NFR-1 ) 

0MEN(1)=0MIN 
00  27  N=2,NFR 
27  0HEN(N)=0MEN(N-1 ) .DOME 
Ll  = l 
L2=I 

NUMB  = (NUT-1)*6 
NELEM  = NFR»NUHB»2 
REWIND  20 
00  37  K=1 ,NOS 
CALL  FINV 
OIP=ST(K)-TPST 
KI=0 

KM  = - NUMB 
00  53  N=1,NFR 
0MEGA=0MEN(N) 

UN=0MEGA*»2 
CALL  KERN 
GO  T0(34,35) . 10 
35  WRITE(6,14)  K,N 

14  FORMAT (29H0  MATRIX  IS  SINGULAR.  I 

GO  TO  777 
34  CONTINUE 

IF(IRR-l)  311.54.311 
311  CONTINUE 
C 

C IRR=1  MEANS  NO  INTERPOLATION  BECAUSE  OF 
C 


SP2  19 

) .PRA(7,6) ,PRV(7,6) . SP2  20 

13(40) .C(40) ,WD(40) .A(3360)  SP2  21 

SP2  22 
SP2  23 
SP2  24 
SP2  25 
SP2  26 
SP2  27 
SP2  28 
SP2  29 
SP2  30 
SP2  31 
SP2  32 
SP2  33 
SP2  34 
SP2  35 
SP2  36 
SP2  37 
SP2  38 
SP2  39 
SP2  40 
SP2  41 
SP2  42 
SP2  43 
SP2  44 
SP2  45 

> 12. 6H,  N ■ 12)  SP2  46 

SP2  47 
SP2  48 
SP2  49 
SP2  50 
SP2  51 

IRREGULAR  FREQUENCIES  SP2  52 

SP2  53 


o o 


YKaY(Kfl)>0.0001 

SP2 

54 

IF(YK)  54. 2222*2222 

SP2 

55 

!22  CONTINUE 

SP2 

56 

YKN«Y(K.NUT) 

SP2 

57 

OAFTaABS(YKN) 

SP2 

58 

WDR«OMEGA*SQRT (DAFT) 

SP2 

59 

IriwuK-0»7)  54.55.55 

SP2 

60 

54  CONTINUE 

SP2 

61 

DO  41  LKal.lO 

SP2 

62 

GO  TO (70. 70. 70. 70. 70. TO. 71. 72. 73.74) .LK 

SP2 

63 

70  CONTINUE 

SP2 

64 

U«LK 

SP2 

65 

HaLK 

SP2 

66 

GO  TO  75 

SP2 

67 

71  CONTINUE 

SP2 

68 

La5 

SP2 

69 

Ha3 

SP2 

70 

GO  TO  75 

SP2 

71 

72  CONTINUE 

SP2 

72 

La2 

SP2 

73 

Ma6 

SP2 

74 

GO  TO  75 

SP2 

75 

73  CONTINUE 

SP2 

76 

La2 

SP2 

77 

Ha4 

SP2 

78 

GO  TO  75 

SP2 

79 

74  CONTINUE 

SP2 

BO 

L«6 

SP2 

81 

Ha4 

SP2 

82 

75  CONTINUE 

SP2 

83 

42  OAOS  aO.O 

SP2 

84 

ODDS  aO.O 

SP2 

85 

00  43  Jal.NON 

SP2 

86 

OAOS  aOADS  ♦OEL(K,J)*FR(J.L)»PRA(J.H) 

SP2 

87 

43  OOOS  aOOOS  ♦DEL(K.J)*FR(J.L)*PRV(J,M) 

SP2 

88 

OAOS  =2,0*OAOS 

SP2 

89 

OOOS  a2,0»OOOS 

SP2 

90 

ALFA (N.LKl =ALFA (N.LK) .OS (K ) *OAOS«FM 

SP2 

91 

BETA (N.LK) *0ETA (N.LK) *0S (K ) •DnOS»FH 

SP2 

92 

41  CONTINUE 

SP2 

93 

GO  TO  76 

SP2 

94 

55  CONTINUE 

SP2 

95 

KlaM.l 

SP2 

96 

W0(KI)aW0R 

SP2 

97 

AI2(KI)a0.0 

SP2 

98 

AI3(KI)aO.O 

SP2 

99 

00  52  Jal.NON 

SP2 

100 

AI2<KI)aAI2(KI) ♦0EL(K,J)*FR(J.2)*PRA(J.2) 

SP2 

101 

AI3(KI)aAI3(KI) ♦0EU(K.J)*FR(J,3)*PRA(J.3) 

SP2 

102 

32  CONTINUE 

SP2 

103 

FCla2./0AFT/DAFT/UN/l .57 

SP2 

104 

AI2(KI)aAI2(KI)*FCl 

SP2 

105 

AI3(KI)=AI3(KI)*FC1 

SP2 

106 

76  CONTINUE 

SP2 

107 

KM  = KM  ♦ NUMB 

SP2 

108 

00  220  Jal.NON 

SP2 

109 

00  220  Mai, 6 

SP2 

no 

KM  = KM  ♦ 1 

SP2 

111 

A(KM)  a PRA(J.M) 

SP2 

112 

A(KM.NUMB)  a PRV(J.M) 

SP2 

113 

220  CONTINUE 

SP2 

114 

N0N=NUT-1 

SP2 

115 

NUMB=6*N0N 

SP2 

116 

53  CONTINUE 

SP2 

117 

SP2 

118 

INTERPOLATION  BECAUSE  OF  IRREGULAR  FREQUENCIES 

SP2 

119 

FIRST  WE  WRITE  OUT  FROM  THE 

SP2 

ORUM  ALL  PRESSURES  FROM  OMEGA«SORT (DAFT/  SP2 

120 

121 

GRAV)»0.7 

SP2 

122 

IF(KI-2)  32.32.77 

SP2 

123 

77  continue 

SP2 

12A 

Kin=NFR-KI 

SP2 

125 

no  78  N12«1.NFR 

SP2 

126 

ITEMP  a N12 

SPc 

127 

FAC=0MEN(N12) •SQHTtOAFT) 

SP2 

128 

lFlFAC-0.7)  78.79.79 

SP2 

129 

78  CONTINUE 

SP2 

130 

79  CONTINUE 

SP2 

131 

N12  = ITEMP 

SP2 

132 

NUMP=f)*NON 

SP2 

133 

NSXIP  = 2»(N12-11«NUMR 

SP2 

13A 

NOO  = 2» (NFR-N12*! ) 

SP2 

135 

C(NFR)=-1. 

SP2 

136 

C(KID*1)=-1. 

SP2 

137 

KIM=KI-1 

SP2 

138 

no  21  N=2.K1M 

SP2 

139 

NN=KIO*N 

SP2 

lAO 

AL1=AI2(N*1)-AI2(N) 

SP2 

lAl 

AL2=AI2(N*1)-A12(N-1) 

SP2 

1A2 

AL3=AI2(N)-A!2(N-1) 

SP2 

1A3 

CLl=WO(N»l)-Wn(N) 

SP2 

1 AA 

CL2=W0(N*1)-W0(N-1) 

SP2 

1A5 

CL3=W0(N)-W0(N-1) 

SP2 

1A6 

C(NN)=(4L1»«2‘CL1»*2*AL3**2*CL3*»2 
1L1»»2)/S0RT (AL3*«2*CL3»»2) 

21  CONTINUE 

00  320  N13=1.nFR 

ITEMP  = N13 

FAC=0MEN(N13)»S0PT(0AFT) 
lF(FAC-0.95)  320.321021 

320  CONTINUE 

321  CONTINUE 

N13  = ITEMP 
00  322  N»1,N13 

C(N)=-1,0 

322  CONTINUE 

00  811  N=2.NFM 
lF(C(N)-(-O.Sn  811.811.2A 
2A  NV=IFIX(0.3/nOME/SORT(OAFT) ) 

IF(NV)  9998.9998.9999 

9998  NV=1 

9999  continue 
KN=N-NV 

IF(KN-l)  531.532.532 

531  KN=1 

532  CONTINUE 
KS=N.NV 
ISUH=0 

A301  CONTINUE 

KS=KS*ISUM 

IF(KS-NFR)  A31.A31.A32 
A32  K5=NFR 
A31  CONTINUE 

JRsKS* IF  IX (0. 1/DOME/SORT (OAFT) ) 
IFUR-NFR)  A303.A303.A302 
A302  JR=NFR 
A303  CONTINUE 

no  A305  JMrKS.JR 
IF(C(JM)-(-0.5) ) A305.A306.A306 
A305  CONTINUE 
GO  TO  A307 
A306  ISUM=NV 


AL2**2-CL2«*2)/2./S0RT(AL1»»2*CSP2  1a7 

SP2  1A8 
SP2  1A9 
SP2  150 
SP2  151 
SP2  152 
SP2  153 
SP2  15A 
SP2  155 
SP2  156 
SP2  157 
SP2  158 
SP2  159 
SP2  160 
SP2  161 
SP2  162 
SP2  163 
SP2  16A 
SP2  165 
SP2  166 
SP2  167 
SP2  168 
5P2  169 

SP2  170 
SP2  171 
SP2  172 
SP2  173 
SP2  17A 
SP2  175 
SP2  176 
SP2  177 
SP2  178 
SP2  179 
SP2  180 
SP2  181 
SP2  182 
SP2  183 
SP2  18A 
SP2  185 
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IFUR-NFR)  4308*4307*4307 

SP2 

186 

4308 

GO  TO  4301 

SP2 

187 

4307 

CONTINUE 

SP2 

188 

DNO«FLOAT{KS-KN) 

SP2 

189 

rjQ  ncn  ipsl.s 

SP2 

190 

00  350  J«l*NON 

SP2 

191 

DO  350  M«a,6*2 

SP2 

192 

NU1» (KN-N12 ) *NUMB*2* ( IR-1 1 *N0N*6*  t J-1 ) *6*M 

SP2 

193 

NU2» (KS-N12) *NUMB*2* ( IR-1 ) *N0N*6* (J-l )*6*M 

SP2 

194 

NUl  » NUl  ♦ NSKIP 

SP2 

195 

NU2  = NU2  ♦ NSKIP 

SP? 

196 

0ELT1=A(NU2)-A(NU1) 

SP2 

197 

DO  350  JK«KN*KS 

SP2 

198 

NU* ( JK-N12) *NUMB*2*  HR-l ) *N0N*6*  U-l ) *6*M 

SP2 

199 

NU  = NU  ♦ NSKIP 

SP2 

200 

A(NU)=A(NUn  ♦0ELT1*UK-KN)/0N0 

SP2 

201 

C(JK)»-1. 

SP2 

202 

350 

CONTINUE 

SP2 

203 

811 

CONTINUE 

SP2 

204 

DO  121  N*2*KIH 

SP2 

205 

NN»KIO*N 

SP2 

206 

AL1=A13(N*1)-A13(N) 

SP2 

207 

AL2=A13(N*1)-AI3(N-1) 

SP2 

208 

AL3»A13(N)-AI3(N-1) 

SP2 

209 

CL1»W0(N*1 )-WO(N) 

SP2 

210 

CL2=W0(N»1)-W0(N-1) 

SP2 

211 

CL3*W0(N)-WD(N-1) 

SP2 

212 

C{NN)=<AU**2*CL1**2*AL3**2*CL3**2-AL2**2-CL2**2)/2,/S0RT(AL1 

**2*CSP2 

213 

IL 1**2) /SORT (AL3»»2*CL3*»2) 

c 

214 

121 

CONTINUE 

SP2 

215 

DO  323  N«1*N13 

SP2 

216 

C(N)=-1.0 

SP2 

217 

323 

CONTINUE 

SP2 

218 

DO  821  N»2*NFM 

SP2 

219 

IF(C(N)-(-0.5) ) 821*821*124 

SP2 

220 

124 

NV=IFIX(0.3/OOME/SORT (DAFT) ) 

SP2 

221 

IF(NV)  9996*9996*9997 

SP2 

222 

9996 

NV=1 

SP2 

223 

9997 

CONTINUE 

SP2 

224 

kn=n-nv 

SP2 

225 

IF(KN-l)  511.512*512 

S?2 

226 

511 

KN=1 

SP2 

227 

512 

CONTINUE 

SP2 

228 

KS=N*NV 

SP2 

229 

ISUM=0 

SP2 

230 

4311 

continue 

SP2 

231 

KSaKS*ISUM 

SP2 

232 

IF(KS-NFH)  411*411*412 

SP2 

233 

412 

KS»NFR 

SP2 

234 

411 

continue 

SP2 

235 

JR»KS*IFIX(0.1/OOME/SORT(OAFT) ) 

SP2 

236 

IF(JR-NFR)  4313*4313*4312 

SP2 

237 

4312 

JR=NFR 

SP2 

238 

4313 

CONTINUE 

SP2 

239 

00  4315  JM=KS.JR 

SP2 

240 

IF(C(JM)-(-0.5) ) 4315*4316*4316 

SP2 

241 

4315 

CONTINUE 

SP2 

242 

GO  TO  4317 

SP2 

243 

4316 

1SUM=NV 

SP2 

244 

IF(JR-NFR)  4318*4317*4317 

SP2 

245 

4318 

GO  10  4311 

SP2 

246 

4317 

CONTINUE 

SP2 

247 

0N0=FL0AT (KS-KN) 

SP2 

248 

DO  351  IR»1*2 

SP2 

249 

DO  351  J»1*N0N 

SP2 

250 

DO  351  M«l*5*2 

SP2 

251 
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3 


i 


J 
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} 


NUl»  (KN-N12)  •NUMB«i:*  ( lR-1 ) •N0N»6»  ( J-1 ) •6*M 

SP2 

252 

NlJ2« (KS-N12) »NUMB»2* ( IR-1 1 •N0N«6*  t J-1 ) »6«M 

SP2 

253 

NUl  » NUl  ♦ NSKIP 

SP2 

254 

NU2  » NU2  » NSKIP 

SP2 

255 

DELTl**(NU2)-A(NUl) 

SP2 

256 

DO  351  JK-KN.KS 

SP? 

25? 

NU*UK-N12)  •NUMB«2*  ( lR-1 ) ( J-1 ) *6*M 

SP2 

is8 

NU  * NU  ♦ NSKIP 

SP2 

259 

A <NU) »A (NUl ) ♦OELTl * ( JK-KN) /ONO 

SP2 

260 

C(JK)=-1  . 

SP2 

261 

351  CONTINUE 

SP2 

262 

821  CONTINUE 

SP2 

263 

SP2 

264 

WE  HAVE  NOW  ADJUSTED  IP  NECESSARY  THE  PRESSURES 

FROM  0MEGA»S0RT(0AFTSP2 

265 

/6RAV)=0.7.AN0  ARE  NOW  GOINf*  TO  CALCULATE  THE 

CORRESPONDING  ADDED  SP2 

266 

HASS  AND  OAHPING 

SP2 

267 

SP2 

268 

DO  58  N=N12.NFR 

SP2 

269 

DO  58  LK»1,10 

SP2 

270 

GO  TO(BO«80t80«80«80«fl0«8U82«83«AA)  «LK 

SP2 

271 

80  CONTINUE 

SP2 

272 

L»LK 

SP2 

273 

M»LK 

SP2 

274 

GO  TO  85 

SP2 

275 

81  CONTINUE 

SP2 

276 

L«5 

SP2 

277 

Mx3 

SP2 

278 

GO  TO  85 

SP2 

279 

82  CONTINUE 

SP2 

280 

L-2 

SP2 

281 

M»6 

SP2 

282 

GO  TO  85 

SP2 

283 

83  continue 

SP2 

284 

L=2 

SP2 

285 

H«4 

SP2 

286 

GO  TO  85 

SP2 

287 

84  CONTINUE 

SP2 

288 

L»6 

SP2 

289 

SP2 

290 

85  CONTINUE 

SP2 

291 

OAOS=0.0 

SP2 

292 

OODS=0.0 

SP2 

293 

00  60  J^ltNON 

SP2 

294 

NUl=(N-NI2)«NUMB*2* ( (J-1)*6*M) 

SP2 

295 

NU2=(N-N12) *NUM0*2*  N0N*6* ( J-1)*6*M 

SP2 

296 

NUl  = NUl  ♦ NSKIP 

SP2 

297 

NU2  = NU2  ♦ NSKIP 

SP2 

298 

OAOS=OAnS*OEL(K.J)«FR(JtL)*A(NUl) 

SP2 

299 

60  ODOS=OOOS*OEL (K . J) »FR ( JiL) «A (NU2) 

SP2 

300 

OADS=2.0*OAOS 

SP2 

301 

OOOS=2.0*OOOS 

SP2 

302 

ALFA (N.LK ) =ALFA (N,LK) »0S (K) *OAOS*FM 

SP2 

303 

BETA(N,LK)=BETA(N,LK) *0S (K) •OnOS*FM 

SP2 

304 

58  continue 

SP2 

305 

32  CONTINUE 

SP2 

306 

WRITE  (20)  (Ad)  f I»l.NELEM) 

SP2 

307 

37  CONTINUE 

SP2 

308 

ENOFILE  20 

SP2 

309 

REWIND  20 

SP2 

310 

DO  33  N»ltNFR 

SP2 

311 

OMEGA=OMEN(N) 

SP2 

312 

UN=OMEGA**2 

SP2 

313 

DO  44  L=1 tlO 

SP2 

314 

ALFA (N. L )=ALF A (N.L) /VOL/UN 

SP2 

315 

BETA(N,L)=8ETA(NtL)>'V0L/0MEGA*I.4142136 

SP2 

316 

44  CONTINUE 

SP2 

317 
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DO  4S  L»4.6 

SP2 

318 

ALFA (N. L ) -ALFA (N.L) *0.5*0. 5 

SP2 

319 

j 

BETA (N. L) -BETA (N.L) *0.5*0. 5 

SP2 

320 

45  CONTINUE 

SP2 

321 

; 

DO  46  L-7.10 

SP2 

322 

ALFA  (N.L ) - ALFA  {ri.U  *0.5 

SP2 

323 

BETA (N. L) -BETA (N.L) *0.5 

5P2 

324 

46  CONTINUE 

SP2 

325 

! 

ALFA(N.10)x0.5*ALFA(N.10) 

SP2 

326 

' 

BETA(N.10)-0.5*BETA(N.10) 

SP2 

327 

33  CONTINUE 

SP2 

328 

PRINT  ZERO  SPEED  NON-DIMENSIONAL  ADDED  MASS  AND  DAMPING  COEFFICIENTS 

SP2 

329 

CALL  SEPART  (1) 

SP2 

330 

■ 

DO  2300  JH-1,2 

SP2 

331 

IF  (JH  .EO.  1)  H ■ 1 

SP2 

332 

■ 

IF  (JH  .EO.  2)  H - 6 

SP2 

333 

IF  (H  .EO.  6 .AND.  PRNTOP  .EO.  MIN)  GO  TO  2300 

SP2 

334 

: 

WRITE  (H.300)  NFR 

SP2 

335 

WRITE  (H.400)  IRR 

SP2 

336 

WR1TE(H.2235) 

SP2 

337 

WRITE(H,2224) 

SP2 

33B 

DO  2225  N-l.NFP 

SP2 

339 

GXl=OMEN(N)*SORT(2.) 

SP2 

340 

■ 

WRITE(H.2226)  GXI.ALFA(N,1) . ALFA (N. 2) .ALFA (N. 3) . ALFA(N.4) .ALFA(NSP2 

341 

1.5) .ALFA(N.6) .ALFA(M.7) ,ALFA(N.8) .ALFA (N. 9) .ALFA (N. 10) 

SP2 

342 

2225  continue 

SP2 

343 

WRITE(H,2227) 

SP2 

344 

WRITE(H.2228) 

SP2 

345 

DO  2229  N=1,NFR 

SP2 

346 

GXI=0m£N(N)»S0RT(2.) 

SP2 

347 

WRITE (H. 2226)  GXl .BETA (N, 1 ) .8FTA (N.2) .BETA (N, 3) .BETA (N. 4) .BETA(N. 

5SP2 

348 

1) ,BETA(N,6) .BETA(N.7) .BETA (N. 8) .BETA (N. 9) .BETA (N. 10) 

SP2 

349 

2229  CONTINUE 

SP2 

350 

300  FORMAT (107H1NON-OIHENSIONAL*  SPEED  INDEPENDENT  ADDED  MASS  AND  DAMPSP2 
UNO  COEFFICIENTS  FOR  THE  SPECIFIED  FREQUENCIES  (NFR». I3»2H) . ) SP2 
400  FORMAT(5HOIRR»I2»2H  ,.4X,I04H  if  IRR-2  INTERPOLATION  OF  IRRFGULAR  SP2 
IFREOUENCIES  is  performed,  if  IRR-l  INTERPOLATION  IS  NOT  PERF0RME0SP2 
2.)  SP2 

2235  FORMAT (/45H  NON-OIMENSIONALIZEO  ADDED  MASS  COEFFICIENTS-)  SP2 

2224  FORMAT (3X.6HWE(ND) «5X,6HA ( 1 , I ) ,6X,6HA (2»2) ♦6X#6HA(3,3) »6X ,6HA (4 , 4 ) SP2 
2f6X,6HA(5»5) «6Xf6HA(6,6) ,6X,6HA(3,5) .6X,6HA(2,6) ,6X ,6HA (2 «4 ) » 6X ♦ SP2 
26HA(4,6))  SP2 

2226  FORMAT(3X,F6.3,1P10E12.4)  SP2 

2227  FORMAT (/42H  NON-DIMENS lONAL I ZED  DAMPING  COEFFICIENTS-)  SP2 

2228  FORMAT (3Xi6HWE (NO) .5X,6H8(1.1) ,6X,6H8(2«2) ♦6X,6HB(3,3) i 6X.6H8 (4.4) SP2 

2,6X,6HB(5,5) *6X,6HB(6,6) ,6X,6HB(3,5) *6X,6HB(2*6) .6X,6HB(2.4) ,6X,  SP2 
26HB(4,6))  SP2 

2300  CONTINUE  SP2 

CALL  SEPART  (2)  SP2 

RETURN  SP2 

END  SP2 

POR 

—VERSION  4 - COC  6700  -PORT  - JUNE.  1972 POR 

POR 

SUBROUTINE  PORT (A.B.C.P.O.R.T)  POR 

P«(A-B)/(B-C)  POR 
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351 

352 

353 

354 

355 

356 

357 

358 

359 

360 

361 

362 

363 

364 

365 

366 

367 

368 
2 


0-1.0/P 

R-P-0 

T»A-C 

RETURN 

END 


-VERSION  4 - CDC  6700 
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SUBROUTINE  FINV 
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C PROGRAMMER-  W,  FRANK, NSROC  FIV 

C FIV 

COMMON  AM(?7) ,NUT,NMAS,NOS,ST (25) ,05(25) ,EL,ELL»X (25,8) ,Y(25,8) ,PMFIV 


5UN,0MEGA,ID,TIT0(12) ,WORO,NON, IXAST,HDG1 ( 10) , 1T,CBV,CMC,PRNT0P 
COMMON  511 (27) ,YMAS(27) , BEAM, DRAFT, OMAX, IRR, ML, IEND, IBILCE, IPRES, 
2VNY,GRAV,AM0DL,M00,AKEELL,BEAHKL,1TS(25) ,R0(25) ,RFD(25) ,0ELTAn(25 
2,RKD(25) ,50(251 ,C0SPH0(25) ,PHI0(25) ,STPR(25) ,THMO(50) 

COMMON  NWSTP, INWSTP( 12) 

COMMON  /TEMP/  6LOG(2,7,7) ,YL0G(2,7,7) ,OUM3(AflOA) 

00  10  1=1, NON 
XM2=XX(K,1)-X(K,1) 

YH2=YY(K,I)-Y(K.l) 

XP2=XX(K,1)*X(K,1) 

YP2=YY(K,1)*Y(K,1) 

FPR?=.5*AL0G(XM2««2*YM2»*2) 

FPL2=.5»AL0G(XP2**2*YM2«*2) 

FCR2=.5»AL0G(XM2»*2*YP2««2) 

FCL2=.5«AL0G(XP2»*2*YP2*»2) 

APR2=ATAN2(YM2,XM2) 

APL2=ATAN2(YM2,XP2) 

ACR2=ATAN2 (YP2,XM2) 

ACL2=ATAN2(YP2,XP2) 

00  10  J=1,N0N 
XMlrXX(K,l)-X(K,J«l) 

YM1=YY(K,I)-Y(K,J»1) 

XP1  = XX (K, 1 ) ,X(K,J,1 ) 

YP1=YY(K,I) ,Y(K,J*1) 

FPR1=.5»AL0G(XM1**2*YM1»*2) 

FPL1=.5»AU0G(XP1»»2*YMI**2) 

FCRI=.S»AL0G(XM1*»2,ypi**2) 

FCLI  = .5<>AU0G(XP1»»2*YP1*»2) 

APRI=ATAN2(YM1 ,XM1 ) 

APL1=ATAN2(YMI,XP1) 

ACR1=ATAN2(YPI,XM)) 

ACL1=ATAN2(YP1,XP1) 

5IMJ=SNE (K, I ) »CSE (K, J) -5NE (K,J) "CSE (K, I ) 

CIMJ=C5E (K, I ) *CSE (K, J) »SNE (K, I ) ‘SNE (K, J) 

5IPJ=SNE (K.IloCSECK.J) ,5NF(K,J)*C5E(K,I) 
CIPJ=CSE(K,I)*CSE(K,J)-SNE(K,I)*SNE(K,J) 

0PNR=5IMJ» (FPR1-FPR2) »CIMJ*(APK1-APR2) 

PPR=CSE(K, J) *(XM1»FPR1 -YH1»APR1-XM1-XM2*FPR2*YM2*APR2*XM2) »SNE (K, 
1 ) * (YM1»FPR1 ♦XMl»APRl-YMl-YM2*FPR2-XH2*APR2»YM2) 

OPNL=SIPJ» (FPL2-FPL1 ) *C IP J® ( APL2-APL 1 ) 

PPL=CSE(K,J)»(xP2»FPL2-YM2*APL2-XP2-XP1*FPL1*YM1*APH»XP1 ) ,5NE(K, 
1 )« (YM1»FPL1 »XP1»APLI *YM2-YM2»FPL2-XP2»APL2-YM1 ) 
0CNR=SIPJ»(FCR1-FCR2) ,CIPJ«(ArRl-ACR2) 

PCR=CSE(K, J) *(XMI»FCR1-YP1»ACR1-XM1-XM2»FCR2*YP2*ACR2*XM2) ,SNE:K, 
1 ) »(YP2*FCP2*XM2«ACR2*YPI-YP1»FCR1-XM1»ACR1-YP2) 
0CNL=SIMJ»(FCL2-FCL1) ♦CIMJ*(ACL2-ACL1) 

PCL=C5E (K, J)»(XP2»FCL2-YP2»ACL2-XP2-XP1*FCL1»YP1*ACL1*XP1) »SNE(Ki 
1 ) *(yP2»FCL?*XP2«ACL2-YP2-YP1*FCL1-XP1»ACL1 *YP1 ) 

BLOG ( 1 , I , J) =0ONR»0PNL-0CNR-0CNL 
YLOG (1,1 , J) =PPR»PPL-PCR-PCL 
BLOG ( 2 , I , J ) =OPNR-OPNL-OCNR ,OCNL 
YL0G(2, I , J)=PPR-PPL-PCR*PCL 
IF(J-NON)  A75,10,10 
475  XM2=XM1 
YH2=YM1 
XP2=XP1 
YP2=YP1 
FPR2=FPR1 

FPL2=FPL1  72 
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FCR2»rc«l 

FIV 

73 

FCL2-FCL1 

FIV 

74 

APR2«APR1 

FIV 

75 

APL2«APL1 

FlV 
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ACR2sACRl 

FIV 

77 

ACU2»ACL! 

F iv 
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10  CONTINUE 
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PFTIJRN 
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.••••i/roQTOKi  A - rnr  ataa  • k r o kj  • iiimp. 

KRN 

J 

SUBROUTINE  KERN 

KRN 

s 

KRN 

6 

PROGRAMMER-  W.  FRANK, NSROC 

KRN 

7 

KRN 

8 

COMMON  AM(27) ,NUT,NMAS,NOS,ST (25) ,0S (25) ,EL.ELL.X (2S,B) ,Y(25.B) .Pmkrn 

9 

1AS(27)  ,XMAS(27)  ,ZHAS(27)  ,RRG(?7)  .XG,26,TMAS,EI*'*,EIG5,E  Ib(S 

,EI46,TPKRN 

10 

2ST,RF33,RM35,RM55,OGM,OIP,K,N,TVOL.ALFA(<,0,11),«ETA(40,11) 

,HOG(10)KRN 

11 

3,FN(5) ,RAM(30) ,COG(10) ,SOG(10) ,0MAX ,0M1N,NFR,N0K ,N0R,N0H,0MEN (40) 

,KRN 

12 

4FR(7,6) ,XX (25,7) ,YY (25,7) ,0EL (25,7) ,5NE(25,7) ,CS£ (25, M ,EN1 (25,7) 

,KRN 

13 

SUN, OMEGA , 10 , T I TO ( 1 2 ) , WORD , NON , I XAST ,H0GI ( 1 0 ) , 1 T ,CH v , CMC .PRNTOP 

KRN 

14 

COMMON  5T1 (27) ,YMAS(27) , BEAM, GRAFT, OMAX, IRR, ML, lENO. IRIL6E 

. IPRE5, 

KPN 

15 

2VNY,GRAV,AMOOL,MOO,AKEELL,BEAMKL,ITS<2S),»0(25) ,»FD(25) ,0F.LTA0 (25) KRN 

16 

2,RK0(25) ,S0(25) ,C0SPH0(25) ,PHI0(25) ,STPR(25) ,THMD(50) 

KRN 

17 

COMMON  NWSTP,INWSTP(12) 

KPN 

18 

COMMON  /TEMP/  BL0G(2,7,7) ,YLOG(2,7,7) ,PRA(7,6) ,PRV(7,(S) , 

KRN 

19 

2 CONI (14,2) ,C0N2(14,2) ,CT1 (14,14) ,CT2(14,14) ,S0UR1 (7,7) , 

KRN 

20 

2 SOUR2(7,7) , WAVE  1 (7,7) ,WAVE2(7,7) ,INUEX(l4,3) ,0(IM3(4034) 

KPN 

21 

N0E=2*N0M 

KRN 

22 

no  1 I«l,NON 

KRN 

23 

N1»N0N* I 

KRN 

24 

FR(I,1)*EM1  (K,n 

KRN 

25 

FR(I,2)»-SNE(K,I) 

KRN 

26 

FR(1,3)*CSE(K,1) 

KRN 

?7 

FR(I,4)sXX(K,1)*CSE(K,I)-YY(K,I)*FP(1,2) 

KRN 

28 

FR(l,5)*-niP*FR(I,3) 

KRN 

29 

FR(I,6)»01P*FR(I,2) 

KRN 

30 

CONI (I,1)»0.0 

KRN 

31 

CONI (l,21«0.0 

KRN 

32 

CON2(I,1)*0.0 

KRN 

33 

CON2(1»2)»0.0 

KRN 

34 

CONI (NI,1)=0MEGA*FR(I,1) 

KRN 

35 

CONI (NI,2)=OMEGA»FR(I,3) 

KRN 

36 

C0N2 (NI , 1 ) =0MEGA»FR (1,2) 

KRN 

37 

C0N2(NI,2)=0MEGA*FR(I,4) 

KRN 

38 

XR2=UN*(XX(K,I)-X(K,1)) 

KRN 

39 

YR2=-UN*(YY(K,I)*Y(K,D) 

KRN 

40 

XL2=UN*(XX(K,I),X(K,D) 

KRN 

41 

YL2=YR2 

KRN 

42 

CALL  0AVI0(XR2,YR2,EJ2,CXR2,SXR2,RAR2,RBR2,CR2,SR2) 

KRN 

43 

CALL  DAVID (XL2,YL2,EJ2,CXL2,SXL2,RAL2,R8L2,CL2,SL2) 

KRN 

44 

DO  1 Jxl,N0N 

KRN 

45 

NJ=NON*J 

KRN 

46 

SIPJ=SNE(K,I)»CSE(K,J)*SNE(K,J)«CSE(K,I) 

KRN 

47 

CIP  J=CSE (K , I ) *CSE (K , J) -SNE (K , I ) *SNE (K,  J) 

KRN 

48 

S1MJ=SNE(K,I)»CSE(K,J)-SNE(K,J)*CSE(K,I) 

KRN 

49 

CIMJ=CSE(K,I)*CSE(K,J)*SNE(K,I)«SNE(K,J) 

KRN 

50 

XR1=UN*(XX(K,I)-X(K,J»D) 

KRN 

51 

YR1  = -UN*(YY(K,I)*Y(K,J*1)  ) 

KRN 

52 

XL1=UN*(XX(K,I)*X(K,J*1)  ) 

KRN 

53 

YL1  = YR1 

KRN 

54 

CALL  DAVID (XRl ,YR1 ,EJ1 ,CXR1 ,SXRl ,RAR1 ,RHR1 ,CR1  ,SR1 ) 

KRN 

55 

CALL  DAVI0(XL1,YL1,EJ1,CXL1,SXL1,RAL1,RBL1,CL1,SL1) 

KRN 

56 

DPR=2 . * ( S 1 P J*  ( CR 1 -CR2 ) -C I P J»  ( SR  1 -SR2 ) ) 

KRN 

57 

0PL=2,*(C1MJ*(SL1-SL2)-SIMJ«(CL1-CL2) ) 

KRN 

58 

73 


PPR»2./UN*(SNE(K.J)*(RARI-R*R2)*CSE(K.J)*(H8R1-RBR2) ) KPN 

PPL»2./UN* (SNE (K* J) • (RAL1-RAL2) *CSE (Kt J) • (RBL2-RHL1 ) ) KRN 

0WRa6.2831853*(EJ2«(SXR2*ClPJ-CXR2»SIPJ)-EJl*(SXR!«riP.j-CxtJJs5:Pj;KRri 

, KRN 

nwL»6.283in53*{EJl*(SXLl*CIMJ-CXLl»SIMJ)-EJ2*(SXL-2*CIMJ-CXL2«*?!Mj)KRN 

1 ’ KRN 

PWR36.2fl3l853/llN*(EJl*(SXRl*CSE<K,J)-CXRl*SNE(K,J) )-EJ2*(SXR2»CSE(KRN 
1K,J)-CXR2«SNE(K,J» ) ) KRN 

PWL=6.2d31853/UN*(EJ2»(SXL2»CSE(K.J)*CXL2»SNE(K,J) )-Ejl*'SXLl»CSE(KRN 


IKtJ) ♦CXL1*SNE(K.J) ) ) KRN 

CT1(I.J)»BLOGU,I,J)*OPR+OPL  KRN 

CT2(I»J)«RL0G(2«I.J) ♦OPR-OPL  KRN 

CTl  (N!,NJ)«Cn  {I,J)  KRN 

CT2(Nl,NJ)»CT2(l,J)  KRN 

CTl (I«NJ)>OWR*DWL  KRN 

CT2(I»NJ)«0WB-DWL  KRN 

CTl (NI.J)»-CT1 (l.NJJ  KRN 

CT2(NI,J).-CT2(1.NJ)  KRN 

SOURl  (ItJ)«YL06n.I.J)*PPR*PPL  KRN 

SOUR2 ( I . J) aYLOGJ2. I ♦ J) ♦PPR-PPL  KPN 

WAVEl (I.J)«PWR*PWL  KRN 

WAVE2JI.J)aPWR-PWL  KRN 

ir(J-NON)  2.1.1  KRN 

2 XR2=XR1  KRN 

YR2=YRI  KRN 

CXR2=CXR1  KRN 

SXR2=SXR1  KPN 

RAR2=RAR1  KRN 

R8R2=RBR1  KRN 

CR2=CR1  KRN 

SRc=SRl  KRN 

XL2=XL1  KRN 

YL2=YL1  KRN 

EJ2=EJ1  KRN 

CXL2=CXL1  KRN 

SXL2=SXL1  KRN 

RAL2=RAL1  KRN 

RBL2=RBL1  KRN 

CL2=CL1  KRN 

SL2=SL1  KRN 

I CONTINUE  KRN 

CALL  HATINS(CT1.1«..NOE.CON1.2.2.0TE.ID.INDEX)  KRN 

GO  T0(3.9) ,10  KRN 

3 CALL  MATINS(CT2,1A,NOE.CON2.2.2.DTO. ID. INDEX)  KRN 

GO  TO  (A, 9) , ID  KRN 

A no  5 1=1 .NON  KRN 

00  6 L=1.A  KRN 

PRA{1.L)=0.0  ■ KRN 

6 PRV(I,L)=0.0  KRN 

00  7 J=1,N0N  KRN 

NJ=NON.J  KRN 

PRA  < 1 , 1 ) *PRA  (1,1)  .-CONI  ( J,  1 ) *WAVEl  ( 1 ♦ J)  -CONI  (NJ,  1 ) »S0UR1  ( I , J)  KRN 

PRA ( 1 ,2) =PRA (1,2) .CON?( J. 1 ) *WAVE2 ( 1 . J) -C0N2 (NJ, 1 ) •S0UR2 ( I , J)  KRN 

PRA(I,3)=PRA(I,3) .coni ( J.2) »WAVE1 ( I . J) -CONI (NJ,2) *S0UR1 ( I , J)  KRN 

PRA ( I , A) =PRA ( I , A) .CONE ( J.2) *WAVE2 ( I . J) -CONE (NJ,2) «S0UR2 ( I , J)  KRN 

PRV(I,l)=PRV(I.l) .cor'd  (J.1)*S0UR1 (l.J) .CONI (NJ.l )*WAVE1 (!,J)  KRN 

PRV (1,2) =PRV (1,2) .CONE ( J, 1 ) »S0UR2 ( I » J) »C0N2 (NJ, 1 ) *WAVE2 ( I , J)  KRN 

PRV(I,3)=PRV(I ,3) .CONI (J,?)»S0UR1 (l.J) *C0N1 (NJ,2)*WAVE1 (I,J)  KRN 

7 PRVd ,A)=PRV(I ,A) .CON2(J,2)*SOUR2(I,J) *C0N2 (NJ,2) *WAVE2 ( I , J)  KRN 

no  8 L=1,A  KRN 

pra(i,l)=omega*pra(i,l;  krn 

8 PRV(I,L)=0MEGA*PRV(I,L)  krn 

PRA(1,5)=-0IP»PRA(I,3)  KRN 

pra(i,6)=oip*pra(i,2)  krn 

PRV(I,S)=-0IP»PRV(1,3)  KRN 

5 PRV(I,6)=0!P*PRV(1,2)  ' KRN 
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9 RETURN 
END 
C 

C-““— VERSION  - COC  6760  -DAVID  - JUNE*  1972' 

C 

SUBROUTINE  DAVID(X*Y.E.C*S.RA,RB,CIN*SON) 

C 

C PROGRAMMER-  W.  FRANK. NSROC.  AND  0,  FALTINSEN.ONV 
C 

AT«ATAN2(X.Y» 

ARGaAT-I. 5707963 
E»EXP(-Y) 

CaCOS(X) 

S»S1N(X) 

RaX«*2*Y**2 
TESTaO.OOOni 
IF(R-r.O)  5.10,10 
10  TEST»0.1*TEST 

IF(R-2.0)  5*20*20 
20  TEST»0.1*TEST 

IF(R-A.O)  5*30*30 

30  TESTaO,l*TEST 

IF(R-200.0)  5*31*31 

31  TESTaQ.OOOl 
AL»0.5*AL0G(R) 

Ya-Y 

SUMCaY/SQRT(R) 

SUHS«X/SQRT(R) 

TC«SUMC 
TS«SUMS 
or  33  Kal,15 
TO«TC 

Tda-<TC*Y-X*TS)*K/R 
TS»-<TS»Y*X*TO»*K/R 
SUMCaSUMC*TC 
SUMS»SUMS*TS 
IF(K-15)  3A*35,35 

34  IF((ABS(TC)*ABS(TS))-TEST)  35*35.33 

35  SUMCaSUMC/SQRT(R)*(-l.) 

SUMSaSUMS/SQRT(R) •(-!.) 

S0NaSUMS*3.141593*E«C 

SONa-SON 

CINaSUMC*3.l41593*E*S 

RAaAL-CIN 

RBaARG.SON  ^ 

GO  TO  4 
33  CONTINUE 
5 AL»0.5*ALOG(R) 

SUMCa0.S7721566*AL*Y 

SUMS»AT*X 

TC»Y 

TS*X 

DO  1 KaltSOO 
TO»TC 
COXaK 
CAY»K*1 

FACTaCOX/CAYsaj 

TC«FACT*(Y*TC-X*TS) 

TS»FACT*(Y*TS*X*TO) 

25  SUMCaSUMC*TC 
SUMSaSUMS*TS 
IF(K-SOO)  40,3.3 

40  IF((ABS«TC)*ABS«TS))-TEST)  3*‘3*1 
3 CINaE*(C»SUMC*S*SUMS) 

SONaE* (S*SUMC-C*SUMS) 

RAaAL-CIN 
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non  non  r>  rt  r> 


RR»A«G«50N 
no  TO  u 
continue 

RETURN 

END 


-VERSION  4 - CDC  6700 


P (5  0 3 - JUNE.  1972- 


OVERLAY  (LINK3.3.0) 
PROGRAM  PR03 
DIMENSION  GMI1I6.6) 

CALL  SPRG4  (GHU) 

CALL  SPrtGS  (GMU) 

END 

-VERSION  4 - CDC  6700 


S P R G 4 


JUNE.  1972- 


SUBROUTINE  SPRG4(GMU) 


programmer-  0.  FALTINSEN.DNV 


COMMON 


3.FN(S) .BAM(30) ,COG(10) .SOG(IO) »OMAX .OMIN.NFR.NOK .NOR .NOH.OMFN (40) 
4FR(7.6) .XX(25.7) .YY(2S.7) .DEL (25.7) .SNE (25.7) .CSE (2S.7) .ENl (25.7) 
SUN. OMEGA. 10. TITO ( 12) .NOHO.NON, IXAST.riOGl (10) . I T .CBV .CMC .PpNTOP 
COMMON  STl (27) .YHAS(27) .BEAM.ORAF T .UMAX . I RR .ML . IEND . 10 ILGE . IPMES . 
?VNY.GRAV.AM00L.M00.AKEELL.BEAMkL.ITS(25) .RD(25) .RFD(25) .DELTA0(25: 
2.RK0(25) .S0(2S) .C0SPmD(25) .PHI0(25) .STPR(25) .THM|)(50) 

COMMON  NWSTP.  IN-WSTP  ( 12) 
dimension  GMU(6.6) 

DO  111  1=1.6 
DO  111  J»1.6 
111  GMU(I.J)*0.0 
GMU(1.1)=U 
GHU(2.2)«1. 

GMU ( 3 . 3 ) » 1 . 

GMU(4.4)«EI44 

GMU(4.6)=EI'*6 

GMU(5.5.'«EI55 

GHU(6.6)»EI66 

GMU(4.2)=-ZG/ELL 

GMU(2.4)«-ZG/ELL 

GMUd  .5)»ZG/ELL 

GMU(S.1)»ZG/ELL 

RETURN 

END 
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66 
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67 

DAV 

60 

DAV 

69 

OAV 
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LK3 
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LKi 
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LKY 
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LK3 
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LK3 
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SP4 

2 
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4 
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5 

SP4 

6 

SP4 

7 

SP4 
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tSP4 
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’SP4 
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SP4 

20 

SP4 

21 

SP4 

22 

SP4 

23 

SP4 
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SP4 

25 

SP4 
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SP4 
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SP4 

2B 

SP4 

29 

SP4 

30 

SP4 

31 

5P4 

32 

SP4 
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SP4 
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VcKSION  «*  - COu  6700  - 3 P R G 5 - JUM::-  1972 

SUEROUTINE  SPRG5(GM>J1 

PkOGRAKHLR-  H.  FRANK»NSRCCf  ANli  0.  FAUIN3EN,0NV 
OIKENgION  THCAL(3Q) 

COMON  AM(27)  fNUr,NMAStNaS,ST(25)  (03(25)  (ELtELEt  ^1(25,  6)  (Y(25(8)  ,PH 
IAS  (27)  (XriAi(27)  (2a«S(27)  ,KRG(27)  , X., , ZG  ,THAS»£  IGA  ,E  XS5.E  166  (EI<»6 1 TP 
23T (RFS^fKrtTSfRHSStCGKfaiPtKiSf  TVUE(MLFA (GO ( 11 ) ( uCT A (GOf 1 1) (HSG (10) 
3(FN(5)  |3AH(30)  tCOG(lO)  ,306(10)  ,OrtAX(OMIt(,NFR,NuK  ,K0d,M)H,uHE.4(  GO)  , 
GFR(7,6),XX(25, 7) , YY(25,7) ,(JcL(25,7) ,3NE(25(7) ,CSt(25,7) ,EN1(25,7)  , 
5UN,OHLGA,10( riT0(12) (HORJ,NON, 1XA3T , HCCl ( 10) , IT ,LE V,uKC , FRnTOP 
wOHHbN  3T1(27)  , Yt1AS(27),ciEAK,ORMFTtOHAX,  IRR,  ML,  lEKO,  IBILCE,  IPRES  , 
2/NV(GKAV(AM00L,rt00(i«K£ELL,eEArlKL(lTS(25)  .R0(  25)  ,KFl>(25)  (0ELTAC(25) 
2(RK0(25) iSJ(25) ,CUSPFu(25) ,PdIO (25) , STPR(25) ,THHO (50) 

CURHLN  NR3TP(INHSTP(12) 

COritiCN  /EOOH(vM/  STlO(2G)  , HUR02(M0.<03, IOAHP,  IPkCNT,32(5)  ,B3(5)  , 

2 PS2(25t5)  (PQ3(25,5)  (laASS 

CORRCN  /PFOIL/  1F01L(KHO,KF,CPL(10) (SPAN (10) (CHORD (10) ,3(10)  (YF (10 
2)  »ZF(1C)  (OuAPHAdO)  ,CLZ(  10)  , ASP ( 10)  , IPRINT 
COHKCN  /OFOIL/  6A(6,6) 

OlKcNSION  A(3360) 

INTEGER  PRNTOP.H 

COPPlEX  CFAC(6) ,CSUH(6) ,00bC(0EtfEN,0UH3,0UH2(CPET(PP,00(Xl 
COP.FUEX  0FX(6) 

COHPLcX  0£F(6) 

COHHCN  /TEHP/  POFS(6,25),POFI(6,25),RMO(6(30),A1MO(6,30), 

2 OAK  11) (001(11) ,P£XR(6(25) !PEXI(6,25) (bAOd ( 10 , 26) , OCOS ( 10,26)  , 

2 T0a(6,6)  ,T0')(6,6),SRF33(27)  ,SPH35(27)  (SrM55(27)  ,SbGG(27)  , 

2 PAV(25,7(6) (FAA(25, 7,6) ,0A(6,6)(0J(6|6) ,TEV(6,6) (OeV(6,l) , 

2 TOO (6 (6) (JOJ (6(1) (INDEX (0,3) , ARl (G2) , mR2 ( G2) , AT  1 ( G2 ) , A T2 (G2) , 

2 VC(25),ao<0(27) ,ECOY(27) ,r\Cdl27) ,PRERE(8, 1G),PkEIP(8, 1G) , 

2 FZRSG(25) , o VRSG( 25 ) , dVISG (25) , FZ ISG( 25) , F YRSG  ( 25 ) , F TIS 0 ( 25) , 

2 TKR3G(25)  ,TMI3G(25)  ,CLRSG(25)  ,jLliG(25)  ,RHMC( 53)  , )<E  (30 ) , 2N(30 ) , 

2 XL1L»!0(3  0)  ,IHHO(50)  ,HAVA.ir-(30)  ,OUMG(  76) 

COfsMON  /irtPl/  FACT, JJjKoIGl, VKN0T3,H3L0P£,H5TP(1HSTP,LL,GXI 
CONNC.'I  /IHP2/  SriH(30,6,2) 

COHMON  /THPd/  RlO{5(30, 25) ,AlL0(5, 30,25), STATN(2G) 

CCHNON  /THFg/  H.iD(5,50,2)  ,NHF,£PS 
GOHMCN  /TrtP5/  dOV(30,6,2) 

DIMENSION  GHU(6,6), roCF(6,6) ,TEVF(6,6) ,d00F(6) ,6EVF(6) , T(32,62) 
OIHENSIUN  TUUA(6,6) , TE VA ( 6 , 6) , BOOA (6 ) , 5E7A (6 ) , TOud (6 , 6 ) ,TEVd(6,6) , 
230»E(6)  ,d£\/d(6)  ,Tut)C  (6,6)  , T£ Vb  (6,  6)  ,BOOb  (6)  , BE  vC  (6) 

OAIA  nIN  /3HHIN/ 

BACKSPAbE  1 

2198  FORMA)  (118H'lNON-3IHENSI0NAL  ACDEO  HASS  , DAMPING , AND  RESTORING  CCEFF 
2IbIENTS  Anj  EXbiriNG  FORCES  A^O  MOMENTS  OF  THE  STRUTS  ANJ  FOILS) 

2199  ForKmT  (G1X,12A6,15X,3H***///17X,9HmEAOxNG  =,F5.0,Gh  »,EG,  7X,  IZMaril? 

2 SPEED  -=,F6.2,6H  KNOTS/1 8X , 1 6H  (HE Au  SEAS  =160)  ,9X,  ISHFkOUUF.  NUMBER 

3 =,F7.G,///) 

2200  FOnMAT (/58H  NOh- OIPENSIONALIZc C AGGEO  MASS  COEFFICIENTS  OF  THE  FOI 
1LS-) 

2201  FoRMmT (JX,6HHE(N0I ,5X,6HA( 1,1) , 6X,6HA ( 2, 2) , 6X, 5HA (3 ,3) ,6X,6HA (G,G) 
1,6X,6HA(5,5) ,bX,6HA(6,6) ,6X,6HA (3 ,5) , 6 X, 6HA (2, 6) ,6X, 6HA ( 2 , G) , 6X, 6H 
2A(G,6) ) 
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3 

SP5 
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5 

SP5 

6 

SP5 

7 

SP5 
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SP5 
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SP5 
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SP5 

12 

SP5 

13 

SP5 

IG 

SP5 

15 

SP5 

16 

SP5 

17 

SP5 

18 

SP5 

19 

SP5 

20 

SP5 

21 

FMOO 

81 

FMOO 

82 

FMOO 

83 

SP5 

22 

SP5 

23 

SP5 

2G 

SP5 

25 

SP5 

26 

SP5 

27 

SP5 

28 

SP5 

29 

SP5 

30 

SP5 

31 

SP5 

32 

SP5 

33 

3P5 

3G 

3P5 

35 

SP5 

36 

SP5 

37 

SP5 

38 

SP5 

39 

SP5 

GO 

FMOO 

8G 

FMOO 

85 

FMCC 

86 

SP5 

G2 

FMOO 

87 

FMCD 

66 

FPOU 

39 

FFCC 

90 

FHCO 

91 

FMCD 

92 

FMCO 

93 

FMOO 

9G 

FMOO 

95 

FMOO 

96 

FMCO 

97 

< V*'  ■J.P'* 


77 


22C2  FORHaI(JX,F6.3,1P10£12.<») 

FKOO 

98 

2203  FORHFT(9X,lP10tl2.‘*) 

fhoo 

99 

220A  FO.-<flAT.(/55H  KuN-OIFENSIOKACIZEO  OAHPING  COEFFICIEK'TS  OF  THE  FOILS- 

FMOD 

100 

1» 

FHOO 

101 

2205  FURKAT (3X,6HhE(N0) f5X,6Ha(lil) •ex.bHB (2, 2) , 6X, 6H6 (3> 3 ) t 6X,6H3 ( A , A) 

FMOO 

102 

1 ,6X,bha(5«5) t6X,6HS<6>6) ,6X,6hd(3,5> ,6X,6H8(2,6) i6X,6H8(2tA)  , 

6X,6H 

FKCO 

103 

28(A,6> ) 

FHOO 

lOA 

2206  FOk(1AT(/5TH  N0N-OIHENS10HALI2EC  RESTORING  COEFFICIENTS  OF  THE 

FOIL 

FNCO 

135 

IS-J 

FHOO 

106 

220/  ruRHAT (3X,6HWL (NO)-tSX > 6HC ( 1« 1)  |6X,6HC (2,2) ,6X , 6HC (3, 3 ) , 6X , 6HC ( A , A) 

FMOO 

10/ 

1,6X,6HC(5,5) ,6X,6HC(6,6) i6X,oHc(3,5) ,6X,6rit (2, 6) ,6X,6HC(2,A) , 

6X,6H 

FHOO 

108 

2C (A ,6) ) 

FHCO 

109 

2203  FOaHAK/,*  NGN-0IHENSICNALI2C0  FORCE  mNO  HOHENT  FUNCTIONS  OF 

THE  F 

FMOO 

110 

lOILS-*) 

FHCO 

111 

2209  FORHAI (3X,6HHE(N0) , AX, 5hSUKG£,oX,AHSHAT, /X,5HHtA V£ ,3X, AHROLL » 

X 

\n 

X 

FMOD 

112 

2PITLh,9X,3HYAH) 

FMOD 

113 

2210  FOnHAT (3X,F6.3, 1P6E12.A) 

FMOD 

116 

2211  FOKHAT (9X,1P6£12.A) 

FMOO 

115 

aOOl  FObhAT (///51H  T00*xs300  BEFORE  J.NSERTION  OF  HYDROFOIL  tLcHcNTS/) 

FMOO 

116 

3011  FORMAT  (///51H  TcV*X=0c.V  UtFOkt  INSERTION  OF  HYOROFOlL  ELLHEnTS/) 

FMOO 

117 

3003  format <///50H  I00*X*800  AFTER  INSERTION  OF  HYDROFOIL  ELEMENTS/) 

FMOO 

118 

3ul3  FuCMAT (///50H  T£V*X=3EV  AFTER  INSERTION  OF  HYORoFOIL  ELEMENTS/) 

F.MCO 

119 

3002  Form*.!  (///♦  MrTrICIcj  TOOF  ANC  oOOF*/) 

FMOO 

120 

3012  FOhflHT(///*  MAT.<IClc.S  TLVF  ANC  BEVF*/) 

FMOO 

121 

3021  KoK(:AI(3X,lF6£12.3,/X,lHX,i2,/H  REAL  ,oX , IP  1£ 12.3 ) 

FKCC 

122 

3022  format <3X,1F6£12.3,/X,1HX,I2,/H  IHAG  ,oX , IPli 12. 3) 

FMCC 

123 

30C A format <///lAH  X=INVTlO»30C/) 

FMOD 

124 

301A  format  (///lAH  X = INVTEV*3FV/) 

FHCO 

125 

3023  FOrMaT (9X,1P1£12.3,12X,1P6£12.3,12X, lPltl2.3) 

FMOO 

126 

C 

SP5 

43 

C 8Y  CAuLlNG  PrEST  THE  RESTOrING  FORCES  AND  MOMENTS  FOR  THE  VARIOUS 

SECT 

SP5 

44 

L OF  TrtE  SHIP  ARE  CALCULATED. 

SP5 

45 

c srF33(K)=-.estorXng  coeffioifnt(heav_-he/.ve)  up  to  station  K 

SP5 

46 

C SRF35(«;)=RiSTORANo  CO.. FFICIENT (m£A Va-PI TCH)  UP  TO  SIATlON  K 

SP5 

4/ 

C SRF55(K)s  restoring  COEFFICIEM (PITCH-P  ITCH)  UP  TO  STATION  K 

SP5 

48 

c SCAA(K)  =M,.rALe(.rRic  height  cvfk  the  haterplmne  for  the  fart  of 

THE 

SP5 

49 

C UP  TO  STATION  K 

SP5 

50 

c These  variables  are  usto  for  the  calculation  of  loaos. 

SP5 

51 

c 

SP5 

52 

dO  66/  <=1,N0S 

SP5 

53 

CALL  FRcSI (FRF33,PRM35,PRM55,PCA4) 

SP5 

54 

3?<F33(K)=PrF33 

SP5 

55 

Sk:(35(';)=?Rm35 

SP5 

56 

SrM55(K) =PrM55 

SP5 

57 

SOLA  <K)=PChA 

SP5 

58 

68/  COMIKLb 

SP5 

59 

II=(0.  ,1.) 

SP5 

60 

FAoT=5/.295//9 

SP5 

61 

PI=3.1A1593 

SP5 

62 

C33=rFoJ 

SP5 

63 

C35=r.M35 

SP5 

64 

C55=rK55 

SP5 

65 

CAA=OGM 

SP5 

66 

C 

SP5 

6/ 

C Ii»REi=l  HE  WANT  10  CALCULATE  PhESSURE 

SP5 

68 

0 IPRES=2  HE  00  NOT  HAM  TO  CALoULAIc  PRtSiURE 

SP5 

69 

C 

SP5 

20 

78 
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SP5 

71 

IEN0«1  £NOT£kNS  IN  THE  EQUATIONS  OF  NOTION 

SP5 

72 

IENO<2  NO  ENCTEKNS  IN  THE  EOUATIONS  UF  NOTION 

SP5 

73 

IdILQE«l  NEANa  THAT  THE  SHIT)  HAS  3IL0CKEEL 

SP5 

74 

1SILGE«2  NEANS  THAT  THc  SHIP  HAS  NOT  aiLGEKEEL 

SP5 

75 

SP5 

76 

SP5 

77 

NOO>l  NEAN:>' HOOEL  MITHCUT  aiLCEKEEL 

SP5 

78 

F00«2  THE  OTHER  OASES 

SP5 

79 

THN  IS  A FIRST  AFP^O/lNATION  TO  MEAN  NAXINUN  ROEE-AKFlITUOE 

(RADIANS 

SF5 

80 

»NT»KItv£KATiC  VlSCaSITV 

SP5 

81 

GRAV«ACwElERATION  Of  GF.AV1TT 

SP5 

82 

SP5 

S3 

AHOOL*  THE  LENGTH  OF  THE  NOOEL  FOR  REYNOLDS  NUHSER 

SP5 

84 

SP5 

85 

SP5 

86 

kO(K)>*SUGE8AOIUS*  FOR  STATION  K 

SP5 

87 

SP5 

88 

SP5 

89 

1TS(K)«1  FORESECTIoN  WHERE  KG/3A1.2 

SP5 

90 

IIS(K)»2  HIOStCTION 

SP5 

91 

ITS(K)*3  AFTSECTION  WHERE  B/KGfl.O 

SP5 

92 

lTS(Ki>^4  OTHER  oAStS 

SP5 

93 

SP5 

94 

SP5 

95 

EOOYTKT^COEFFICIEnT  of  EuCY  making  damping  FOR  STATIpN  K 

SP5 

96 

• 

SP5 

97 

NL-1  Calculate  motions 

SP5 

98 

ML *2  CALCULATE  HCTION:>  AND  LOADS 

SP5 

99 

SP5 

100 

SP5 

101 

SET  STPR<K)sO.O  IF  HP  DO  NOT  WANT  PRESSURE  ON  STATION  K 

SP5 

102 

set  STPRTKJsl.O  IF  HE  WANT  PRESSURES  ON  iTAIlON  K 

SP5 

103 

IT  is  NCI  POSSIOLE  TO  GET  PRESSURES  ON  THE  FIRST  ANO  LAsT 

STATION 

SF5 

104 

SP5 

105 

¥HY=VNY/SORT (GRAV*cLL»*3) 

SP5 

106 

NOSHAL=NuS 

SF5 

107 

SGl  = SORT (OfiAV/ELU 

SP5 

108 

SLC  s I./SGl 

SP5 

109 

NHF  * NCH*.<Oa*HHSTP 

SP5 

110 

KTH=0 

SP5 

111 

SP5 

112 

THIS  Is  WHERE  THE  LOOPS  FOR  I Ht  CALCULATION  OF  MOTIONS  AND  LOADS  SEGI 

SP5 

113 

THE  OUltK  LOOP  IS  FOR  HEaOING  ANO  FROOOc  NUM3ER  AfJu  THc.  INNER  LOOP  I 

SF5 

114 

haVELENGTH. 

SP5 

115 

SP5 

116 

tPS  = .017453293 

SP5 

117 

FCT  = .75 

SP5 

118 

00  599  .-1M=1|N0H 

SP5 

119 

1F(S0C(MM) tl.)  4001,4002t9001 

SP5 

120 

4001  CCt.TINUc 

SP5 

121 

H01G  = mC0$(cDG(('N)  »*FACT 

SP5 

122 

GO  TO  4003 

SP5 

123 

4002  CONTINUE 

SP5 

124 

H010=160. 

SP5 

125 

4003  CONTINUE 

SP5 

126 

00  999  JJ=1,N03 

SP5 

127 
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VKNOTi  = SQKTt£LL*i:RAV)*FN(JJ)/l.&89  SP5 

00  594  IHSTP=1,NWSIP  SP5 

IF  (iNKoTP(lHSIP)  .LE.  0)  INWSTPdWSTP)  = 90  SP5 

KSTP  i l./fLOAI(itlKSIP(IWSIP)J  SP5 

^SLCFE  = no.’Hsrp  sfs 

KTh=KTh+l  SP5 

HERAT  = 0 SP5 

IF  (THM0<KTH>  .GT.  0.)  GO  TO  1500  SP5 

IF  (rtOGKKM)  .£0.  130.  .OR.  rtCOKHS)  .EQ.  J.)  THK0(<TH1  = .00175  SP5 

IF  (HObl(MM)  .EQ.  90.  .OS.  HOGM.1M)  .EO.  270. > THKO(KTH)  = .2  SPG 

IF  (TnliJiKTri)  .lE.  0.)  TrirtOCKTH)  = .2  SP5 

1500  ITs.Kt.1  = ITiRAT  * 1 SP5 

THH=iHMJ(<TH)  SP5 

SF5 

3Y  OALLING  TANAKA  THE  EOOYHAKING  COcFFIClENTS  FOR  THi  STATIOI.S  ARE  SF5 
lALGULATEO  SP5 

SP5 

CALL  T ANAKAdHM.EOCY  ,RG8»  SP5 

00  612  ll=1,N0K  SP5 

HOIGl  - 130.0  - HOIG  SP5 

r0P=6. 233135  SP5 

uXI=AtjS(30^T(I  OP/3Art  (Lu)  ) f TOP*FN(  JJ)  *000  ( HH» /9  AM  (LL) ) SP5 

SFS 

GXI  IS  THL  N0.4-OIMENSIOKALIZEO  FREQUENCY  OF  EKCCUHTEr.  IT  IS  SP5 

OlHENilJNALlZEO  BY  FUlTIPLICATION  WITH  SQkI(G/L).  SP5 

SP5 

IFU.Xl-0.05)  5002,5002,5003  SP5 

SP5 

THE  A30VE  TEST  IS  HAOt  TO  EJtCLOOE  THE  CASE  OF  GX1  = 0.0.  THIS  HAS  SP5 

importance  FOR  THE  FOLLCHING  SEA  oASE.  SP5 

SP5 

5002  OOMINLE  SP5 

GXI=C.C5  SP5 

5003  COMlNUi  SP5 

HE  (LL)  = GXI’SGL  SP5 

2N(lL)  = GXI  SP5 

HVLMh  = 3AF(LL)»cLL  SP5 

HaVAHP <LL» =W3TP*HVLNTri/2.  SP5 

XLlt»IO<LLl  = l./BAM(LU  SP5 

UN=0.5*GXI«»2  SP5 

00  2i/0  L=1,0  SP5 

CO  200  .1=1,6  SP5 

* .OA(L,M»  = 0.0  SP5 

2U0  J3(L,M)=0.0  SP5 

CO  1 N=2,.NFR  SP5 

ITCHP  = N SP5 

OIFF  = CK.,N(N)-6X1»SCRI(0.5>  SP5 

IF(OIFF)  1,3,3  SP5 

1 COMlHUt.  SP5 

3 CONTINUE  • SFS 

N = ITiHP  SP5 

DtLTl  = CrtLN(NJ  -OiltN  (N-1)  SP5 

NUN=HUT-1  SP5 

NUMd=6*NON  SP5 

K1  = NUM3  SP5 

K2  = 2»..UM0  SP5 

K3  = 3*nUM0  SP5 
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MSKIP  * 2*  (N-2)*HU.iB 

SP5 

185 

NELFM  = 2*hFR*NUf1B 

SP5 

186 

OELIO  = vlXl*SORr(0.5)  - OHENCN-IJ 

SP5 

187 

TERM  = OElIC/CELTI 

SP5 

188 

c 

SP5 

189 

L 

The  FOLLUMING  Pi^OCECURE  reads  IK  FROH  dRUM  STORAGE  THE  PRESSURES, 

SP5 

190 

C 

CALCULAIEO  IN  iPRG2,  NECESSARY  TO  LALCULATE  THE  FKESSUkE  AT  THE  GXI 

SP5 

191 

C 

FRECUENoY.  PRtiSURc  MEANS  PRESSURE  PtK  UNIT  MOTION.  PAA  AMO  PAV  A 

SP5 

192 

C 

PRESSURES 

SP5 

193 

C 

• 

SP5 

19A 

00  350  K=l,NOSHAL 

SP5 

195 

READ  (20)  (A(I)  ,I  = 1,NELEM) 

SP5 

196 

00  350  J=1,KCN 

SP5 

197 

KH  = (J-l)*6  » NSKIP 

SP5 

198 

00  350  H=l,6 

SP5 

199 

KM  = KH  ♦ 1 

SP5 

200 

ARl  < A(KH) 

SP5 

201 

mR2  = A(KH+K1) 

SP5 

202 

ATI  = A(KH+X2) 

SP5 

203 

AI2  = A(Krt»K3) 

SP5 

20A 

OELTA  = ATI  - ARl 

SP5 

205 

0ELT5  = AT2  - AR2 

SP5 

206 

PAA<K,J,H)  = ARl  ♦ 0c.LT4«TtR« 

SP5 

207 

PAV(K,J,M)  = Ak2  ♦ 0£LT5*TER« 

SP5 

208 

350  continue 

SP5 

209 

KtHlNO  20 

SP5 

210 

00  202  U=l,10 

SP5 

211 

0£LT2=  (AlFA(N,1.)-ALFA(N-1,U  )/0El.Tl 

SP5 

212 

Oc.LT 3=  (dwTA(K,U-3cTA(K-l,U  )/oELTl 

SP5 

213 

0A1(l)=ALFA(N-1,l) ♦0£LT2*(OX1*SjRT(0.5)-OM£N(N-1)  ) 

SP5 

21A 

0B1<U-3£TA(N-1  ,1.)  ♦0ELT3*  (GXI* SORT  (0.5»-0«EN(N-1)) 

SP5 

215 

202  CC.jTXMUE 

SF5 

216 

C 

SP5 

217 

C 

Vise  is  ualLEO  to  calculate  skin  FRICTION  ANO  EOCTKAKIKG  DAMPING. 

SP5 

216 

C 

SP= 

219 

CAlL  ¥ISC(GX1,VU,TVO,THM,ECOY,RGO) 

SP5 

220 

T dNOsO .0 

SP5 

221 

00  A K=l,NuS 

SP5 

222 

S8KG(K)=J.O 

SP5 

223 

A CCMIKUE 

SP5 

22A 

IF(XOlLG.-l)  3003, 3003, 30CA 

FKCD 

127 

3003  3CuriNU£ 

SP5 

226 

C 

SF5 

227 

C 

oILGCK  J.S  CALLED  To  CALCULATE  ROLL  DAMPING  OUE  TO  dlLGEKEELS. 

SP5 

228 

C 

SP5 

229 

call  UILGEK(GXl,THM,SdXO,TBKC) 

SP5 

230 

3004  CUNTINUE 

SP5 

231 

C 

SP5 

232 

u 

DA  ARl  ACOEO  MASS  LOcFFICIlKTS.  Od  ARl  CAMPING  COEFFICIlNTS.  BOTH 

SP5 

233 

u 

ARl  FLK  THl  WHOLt  SHIP. 

SP5 

23A 

C 

SP5 

235 

C 

SP5 

236 

0A(1,1)=0A1(1) 

SP5 

237 

Oo(l,l)=Jdl(l) 

SP5 

23d 

OA (2,2)=0A1(2) 

SP5 

239 

OG  (2,2)-=Odl(2) 

SP5 

2A0 

Ja  (3,3)'-DAl  (3) 

3P5 

2A1 

81 

j 


0000000 


0B(3,3)=JB1(3)  SP5 

0A(2,4)^0A1(9)  SP5 

0B(2,(»):'001(9i  SP5 

0A(2,6)»JAl(a)-FNUJ  )/bXr**2*0Bl( 2)  SP5 

0B(2|b)-JBl(o) ♦FN(JJ)*CA1(2)  SP5 

0A(3,5>«JAl<rj ♦FN(JJ)/GXI**2*02l(3»  SP5 

0B(3,5)='J61(F)-FN(JJJ»CA1(3J  SP5 

0A(A,4)z0Al(iti  SP5 

0B(4,A)>031(A)  SP5 

3b(4,4}*J3(4>4)tTV0»TaK0  SP5 

uA(4,2)=0A<2,4)  - . SP5 

3B(4,2)=03(2i4)  SP5 

OA (4,6)=0AU lQ»-rN(JJ)/GXI**2*DBlC9)  SP5 

06 (4, 6 >=031(10) ♦FN(JJ)«0Ai(9)  SP5 

DA  (5  ,3)=0a1(7>-FiS(JJ  )/GXI»»2*0ai(3)  SP5 

OB  (5,3)  = aai(F) ♦FH(JJ)*CA1(3)  SP5 

OA  (*.,5)=0Al(5)  MFH(JJ)/CXI)**2*0A1(3)  SP5 

03I5,5)=031(5) ♦(FN(JJ)/CXI)»*2»0ol(3)  SP5 

0A(6,2)=0A1(8> ♦FN(JJ)/axi**2»0ei(2)  SP5 

0B(6,2)=0Bl(a)-FN(JJ)*0Al(2»  SP5 

OA(6,4)=OA1(10M-FN(  JJ)/GXI**2*081(9)  SP5 

Jo(6,4)=J31(10)-FN( JJ)*0A1<9>  SP5 

0A(6,6)=Ja1(6) ♦ (Fn(JJ)/GX1J**2*0A1(2)  SP5 

0B(6,6)=Jb1(»» ♦(FN(JJ)/GX1)**2*C31(2)  SP5 

IF(ItKOl)  3001,3001,3002  FMOD 

3001  CONTINUE  SP5 

C SP5 

c ENOSEP  Calculates  the  auded-hass  and  dahping  terhs  that  arise  from  sf5 

L SEPAKATICN  of  the  flow  about  the  hull.  SP5 

C SP5 

call  £N03EP(0A ,03,GXX,PAA,PAV,JJ)  SP5 

3002  CONTINUE  SP5 

SP5 

THE  following  PkOClCURc  Cn-ATcS  THE  COtFFlvItNT  HATKICILS  TOO  AND  T 3»9 
THtSt  KAT^IuIcS  ARt.  UStJ  TO  SOLVt  TMt  TWO  SETS  uF  CoUPlEO  UIFFtRENT  Sp5 
EauATlONS  FUk.  THE  MCTIOKS.  IN  HATnlX  FORi  IHET  ARE-  TOO*X=BOC  A SP5 
T£i/*X  = &£i(.  THE  FIRST  EQUATION  IS  FOR  THE  SURGt,  HEaVE,  ANU  PITCH.  SP5 
THl  ScCONJ  equation  is  for  TH=  SHAT,  KOLL  ANC  YAH,  SP5 

SP5 

CO  109  1=1,3  SP5 

00  110  J=l,3  SP5 

ltV=l-H  SP5 

JEV=J»J  SP5 

1U0=1EV-1  SP5 

JO0=Jc.V-i  SP5 

TOOd,  j»=-GXi**2»  (bMUCIOO,  JOG)  *0A  (100,  JOO) » SP5 

TOC(i , J*3» =GXI»OJ(IOJ,JOU>  SP5 

TOO(l*o, J»3)=T00(I, J»  SP5 

100(1*3, J)=-T00(I,J+3)  SP5 

TEV(l,J)=-sXl»*2*  (G.iL(It^,JEV)*OA(IEV,JEV))  SP5 

TEV(I,J*T) =GXI*03(I£V,JEV)  SP5 

TEV(1*3,J*3)=TEV(I,J»  SP5 

TtV(l*3,J)=-Tt\/(I,J*3l  3PS 

110  CLNTII.Uc  SP5 

10  9 uUKTiriUE  ' SP5 

T0l(2,2)=T00(2,2>*C33  SF5 

rot,(2,3)=T0-{2,3)*C35  SP5 


242 

243 

244 

245 

246 

247 

248 

249 

250 

251 

252 

253 
2 54 
255 
2 56 

257 

258 
2 59 
2E0 
261 
262 
2 63 

264 

265 
128 

267 

268 

269 

270 

271 

272 

273 

274 

275 

276 

277 

278 

279 
230 
281 
282 
2 33 

284 

285 

286 
287 
286 

289 

290 

291 

292 

293 

294 

295 

296 

297 

298 
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TOO<3,i;)=TOO(3f2)*C35  SP5 

TOO(3>3)=TOO(3t3)^C55  SP5 

TOOl5,5)*TOO(2,2>  SP5 

T00(6,6)*T00{2,3)  SP5 

T00(6t5)sT00(3i2)  SP5 

T0U(by6)>T00(3»3i  SP$ 

TEW(2,2)*IcV{2,2)  SP5 

T!£V<5,5»*TiV(2,2)  SP5 

• FHCO 

FOK  A HULLdCKNE  HrCi^OFClL  (IFClt.«2),  SUSkOUTIKE  -FOIL-  CALCULATES  FllCO 
THE  nOTluS  COEFFICIENTS  ANO  THE' tXCITATICN  FOACcS  ANO  MOHcnTS  OUE  FNOO 

TO  THt  FOILS.  kETURNEC  ARE  THc  TERMS  FOR  THE  TOD,  BOO,  TEV,  ANO  FMOO 
8EV  HATRICIES  FMOO 

FMOO 

IFIIFOIL-I)  7200,2200,7100  FNOO 

7100  CALL  FUlL(TU0F,TEVF,a0uF,8EVF,VKN0TS,UAVAHP,H0Gl,GXI,ELL,RH0,KF,CP  FHCO 

2L, SPAN, CHORD, S,YF,ZF,OGAMnA,CLZ, ash, IHAb,T,LLI  FHOO 

00  711C  JA»1,6  FMOO 

OU  7112  133=1,6  FKCO 

TbOA(jA,jO)3TOO(JA,J8)  FMOO 

TEVA(JA,ja>zTEV(JA,J3)  FMOO 

TOO< JA,JJ)=T00 (JA,J3) UOOF<JA, J8)  FMOO 

TEVtJA  ,J3>  =TEV(  JA,J3)  tTEVFUA,  J8)  FMOO 

TOCB(JA,J3)<TOOUA,Jd]  FMOO 

TEVci(jA,J3) -TEV  (Jm,J3)  FMOO 

7112  CONTlNUi  fMCC 

7110  CONTINUE  FMOO 

7200  CONTINUE  FMOO 

FMOO 

00  1010  L=l,6  SH5 

CFX<L)»(0. 0,0.0)  SP5 

1010  Continue  sps 

1N0S»U  SP5 

SPS 


the  exciting  forces  and  MOMENTS  FOR  THE  WHOLE  SHIP  (bOO  AND  EEV)  A SPS 
N3H  Lf-LCULATEO.  PEXR  AND  PEXI  Akc  THE  FORoES  ANO  MOMcNTS  FOR  SECTI  SPS 


SOS 

UO  32  K-1,N0S  SPS 

KO=K  SPS 

HN=TUP/3AM JLL) /2.  SPS 

CP=HN» (jT (K)-TFST)»«0G(MM)  SPS 

uFl=LUSICF)  SPS 

CP2sSilitCP)  SPS 

oPcT=(CPim*CP2)  »0b(K)  SPS 

OIF=ST  (K)-TPST  SPS 

00  16A3  1=1, NON  SPS 

FR(I , 1)=EN1 (K,I)  SPS 

Fk(1,2)=-SNE(K,1)  sps 

FR(I,3)=oSE(K,l)  • SPS 

FR(I,4)=XX(X,1) *CS£(K, I)-YY(K, I)*FR(I,2)  SPS 

FR(1,5)=-0iP*FrCI,3)  SPS 

FR(I,6)=J1P»FR(I,2)  SPS 

1643  CONTINUE  SPS 

00  lOul  L=l,6  , SFS 

1001  CSUM(L)=(0. 0,0.0)  SPS 

00  bll)  u=l,6  SPS 

OEFiL)=0.0  SPS 


299 

300 

301 

302 

303 

304 

305 

306 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 

141 

142 

143 

144 

145 

146 

147 

148 

149 
337 

308 

309 

310 

311 

312 

313 

314 

315 

316 

317 

318 

319 

320 

321 

322 

323 

324 

325 
3 26 

327 

328 

329 

330 

331 

332 

333 

334 
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610 

CONTINUE 

SP5 

33G 

00  71  j3i,rtON 

SP5 

336 

?ET*EXP(ViN*YY(K.J»  > 

SP5 

337 

ARG«»«N*aX  tK,J)»S0G(rtMl 

SP5 

338 

FC«CCS(AKG) 

SP5 

339 

FS*S1N (ARG* 

SP5 

3A0 

CFAC(1)xFC*FRIJ,1) 

SP5 

3A1 

(.FACi3)«FC*FR(  J,3) 

SP5 

3A2 

CFAC<5)xFC*FR<Jf5) 

SP5 

3A3 

CFAC(2)=‘ii»FS*FR{J,2» 

SP5 

3AA 

CFmC(AJ=iI*FS*FR(J,4J 

SP5 

3 AS 

CFACt6»*Xl*FS*FR(J,6) 

SP5 

3A6 

PP*Fr( J,3) 

SP5 

3A7 

QQ*11*KR(J|2)  *oOG(Mrt) 

SP5 

3A8 

0000=(FP*FCHl*Qa*FS  )*<GXI  ♦SORT  (0. 5*WN) /UN> 

SP5 

3A9 

OfcW£.».=  (JQ*Fo  + li*P?*Fa>*(GXl  *SQkT  ( 0 . 5*  HN) /UN> 

SP5 

3G0 

OUMixoFutd) 

SP5 

3G1 

0Uh2=oFAo(2) 

SP5 

3G2 

CFAutl)=CFAC(l)-i3C00*CrtPLXtPAA(X,J,l)  ,PAV(K,J,D) 

SP5 

353 

uFAC(3)*,.FAt(3»-JUJO»CnPLX  (PmA  (K,  J, 3)  t PA  V ( K,  J , 3) ) 

SP5 

3GA 

CFAC<5)  = GFmc<5) -J0U0*CHPlX (PAA(K, J,5)  tPAVCX,  J,  5») 

SP5 

3G5 

l.FAC(2)=CFAi,  (2J-oevEN»CHPLX(PAA(<,J,2>  ,PAVIK,J  ,2>) 

SPG 

3G6 

CFAC(i») -CFAC(A)-DF.Y£N*C.lPLX(PrtA(K,J,A>  ,PA V (iC  , J , A ) ) 

SPG 

3G7 

oFAC(6)=0FAC(6) -OeVEN'OKFL X (PAA (K , J, 6) ,PAW(K, 3,6)) 

SPG 

3G8 

CFAC(1>)  = GFAC(5)  K 2.  * lI’FlU  JJ)/bXi  ) • U,F  AC  ( 3) -Cf.-13) 

SPG 

359 

CFAC(o)=CFAC<6) -(2.»  Ii*FH( JJ) /GXI) • ( CF AC (2) -OUrt2) 

SPG 

360 

00  1C02  L«i,e 

SPG 

361 

1002 

CbUi:  (L)xCSUrt(L)  ♦P£r»CEL<  K,  J)  ♦CFAC(U 

SPG 

362 

OEF(3)  =0£F(3)-u0uC»CcPUX (PA,{K,J,3) ,PAV(K,J,3) )*FET*i;fcL (K,J)*A. 

SF6 

363 

0cF(5)=U_F(S) -OOJo*CrPtX(P^A (K,J,5) , P A V ( X, J,5) ) • FlI* OcL (K,J) »2. 

SPG 

36A 

0EF(2»=uEF(2)-0EYF.H*Cn?tX<PAA«,J,2)  ,?AVtX,J,2)  ) ♦PtT* OEu  J K,  J)  • 

SPG 

365 

OeF{H)xoeF(A)-CeYF.N»CMFLX(PAA(K,J,A)  , P AV  (K  , J , A ) ) *P£i»  Ct  L (X , J)  ♦ 2 . 

SPG 

366 

0EF(6J  =u£F<6)-0ev£N*CrtFLX(PAA(K,J ,6) ,PAV ( K, J , 6 ) ) *F tT^OuL t K,  J)  ♦ 2 . 

SPG 

367 

21 

CONTIMUi 

SPG 

368 

OU  10  til, 6 

SPG 

369 

?£XR(L,K0)•=^£Al.  (CiUfU  L)  *COCT  )/T  VOt 

SPG 

370 

PlXI  (L  ,K0J  =AI«A6(CaUf'.<t)  *CPtn  /I  VOL 

SPG 

371 

10 

CONI  li,C£ 

SPG 

3 72 

P£XR(1  ,<O)=A.0»P£XR( l,KO) 

SPG 

373 

P£X.<(2,KO)  =t.O*PiXf<(2,KO) 

SPG 

37A 

PCXKJ3  ,KO) =H. 0»PiXR(3,KO) 

SPG 

3 75 

PEXK(4  ,<0)  =2.0»PEXr<(  <4,X0) 

SPG 

376 

P£XR(5,KO)=2.0»PEXi.(5,KO) 

SPG 

377 

PcX«(6  ,nQ.'  =2,  r,*PiXR(6,<0) 

SPG 

3 78 

PlXI (6,Ku) =2. O’P^XI (6 ,KO) 

SPG 

3 79 

P£X1 (5  ,K3)i2.0»HtXl C5,KO) 

SPG 

3S0 

PEXIIA,KO)=2.0»P£XUA,KO) 

SPG 

3S1 

P£XI  (3  ,KJ)  =(.  .0‘PiXl  ( 3,KO) 

SPG 

332 

P£Xi(2,Kj)=A.O‘PcXI(2,KO) 

SPG 

3 83 

i)U  611  l:l  ,6 

SPG 

38A 

PuFR(L  ,X)="ItAL (OEF (L)*CPrT*lI)/TVOL/OXI/OSlK)»2.»FN( JJ) 

SPG 

385 

POFI  (L  ,<)=«lMAC(OtF(u)»CPiT*H)/l  VOL/GXIXOS(KI  »2.»FN(JJ) 

SPG 

386 

bll 

CtNl  KiUl 

SPG 

387 

30  1003  L=l,6 

SPG 

368 

me  3 

lFX(l)  =CFX(L)  ♦CP£I*CSUrt(L) 

SPG 

3 89 

32 

CONTINUE 

SPG 

390 

00  103  L=l,3 

SPG 

391 

84 


or^ooooooo 


LEV*L»L 

LOD*LEl#-l 

aOD(L,  1)*i?cAL(CFX(L00))/TV0l 
300(c»3»l)«AlMAG(CFX  (LOO)  /TVOL 
dEV(L, 1)=REAL (CFX(LEX))/IV0L 
aEX(L  + 3,l)3AIhiAii(CFX  (LEX))/TV0L 
103  CONriNUc 

Booati)3<».o*&oo(iti) 

0*800(3,1) 
dOC(3, 1)=2. 0*800(3,1) 

aoo(>»,  i)*4.o«auo(A,i) 

a00(3,l)^(». 0*800(5,1) 

300(6, 1)«2. 0*800(6,1) 

8EV(1, 1)=4,0*8EV(1,1) 

3£V(3,  l)=:2.a*atV(3,l) 

8EV<3, 1)»2.0*8EV(3,1) 

3EV(L,  l)si,.a*BFV(i.,  1) 

3£V(5,  l)=3.0*8t.V(5,l) 
8EV(6,1)=3.0*6£V(6,1) 

800(1,1)=  RcAL  PART(SUfio£/H) 
6tWa,l)=-JtrtL  PaRT(SMAY/h) 

800(2, 1)  = ^£«L  PART (HEAVfi/H) 


SP5 

SP5 

SP5 

SP5 

SP5 

SP5 

SP5 

SP5 

SP5 

SP5 

SP5 

SP5 

SP5 

SP5 

SP5 

SP5 

SP5 

SP5 

SP5 

SP5 

000(4,  1)  =lHAGIMARr  PARKSURG  SP5 

8EV(4,1)=1P.A&INARY  PARf(SHAY  SP5 

a00(5, 1) =l«MtINASr  PARr(h£AV  SP5 


B£l^  (2,  !)=.<£  AL  PAkY  ( «0LL*L/H)  B£Y(5 , 1)  = 1 t-AGI  UA«  Y PART  (ROLL  SP5 

800(3, l)=RiAL  PART(PiTCh*L/HJ  300  (6,  1)  =1  MAGIi.AR  Y PARTYPITC  SP5 

aiV(3,l)=RcAL  PART(YAH*L/H)  8EV(6,l)=lhAGlNARY  PaRT(YAH*  SP5 

SP5 

*****♦••*•*•  PKOO 
IF(lFolL-l)  7600,7600,7500  FMOO 

7500  00  751U  JA=1,6  FKOO 

30CA(Ja)=80U(Jm, 1)  FKOC 

9cWA(jA)=bi.V(JA,l)  FHOO 

8O0( JA ,l)=aoC( JA, 1) taoCF (JA)  Fnoo 

aEV(JA,l)=Jtrf(JA,l)+8EVF(JA)  FHOO 

a00o(JA)  = t300  (JA,l)  FKLO 

dcVo  ( JA) =0cV( JA, 1)  FNOO 

7510  COMINOt  FNOO 

7600  CCNTlNO't  FNOO 

L*  ***•**♦*•♦*  FMOO 

80V(Ll,1,1)  = BOU(l,l)  SP5 

BCV(LL,1,2)  = 800(4,1)  SP5 

BOV(lL,2,1)  = 8£V(1,1)  SP5 

80V(LL,2,2)  = BcV(4,l)  SP5 

8uV(LL,J,l)  = a0u(2,l)  SP5 

8CV(LL,3,2)  = aOu(5,l)  SP5 

B0Y(LL,4,1)  = S£V(2,1)  SP5 

bCtf(LL,4,2)  = 8EV(5,1)  SP5 

3(jV(LL,5,1)  = 000(3,1)  SP5 

B0V(LL,5,2)  = 800(6,1)  SP5 

BDV(LL,6,1)  = b£V(J,l)  SP5 

60V(LL,6,2)  = PEV(6,1)  SP5 

C SP5 

w HATlNi  IS  UiCO  TU  SOLVE  THL  EQUAIIONS  OF  NOTION.  SP5 

C SP5 

Call  MATINS(TOO,6,6,9OC,1,1,uTF.M,I0,INCEX)  SP5 

00  3201  IQ=1,6  FHOO 


30CL(IC)=80J(I0, l) 


Fnoo 


392 

393 

394 

395 

396 

397 
396 

399 

400 

401 
4 02 
4 03 
404 
4 05 

406 

407 

408 

409 

410 

411 

412 

413 

414 

415 

416 

417 
416 

150 

151 

152 

153 

154 

155 

156 

157 
156 

159 

160 
161 

419 

420 

421 

422 

423 

424 

425 

426 
4 27 

428 

429 

430 

431 

432 

433 
4 34 
162 
163 
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00  6202  J0=lt6 

FKOD 

16A 

8202 

TUOC(10,JQ)=IUO(IQ«JQ) 

FkOO 

165 

o201 

CONT IHUE 

fmco 

166 

iF(lO-l)  501,501,502 

FMOO 

167 

501 

CAIL  MATiNS(Trv,6,6, BEV,l,l,OTRH, 1u,1nCEX) 

SP5 

636 

00  8203  IQ=1,6 

FMOC 

168 

dEVCIlU)xdcvao,i) 

F«OD 

169 

00  o20A  JC=1,6 

FKCD 

170 

820  <• 

TcVL(IC,JQ)»IEV(IU,JQ) 

FNOO 

171 

8203 

CONTINUE 

FMCO 

172 

1F(I0-11  503,503,502 

FMOO 

173 

502 

00  ICS  L=l,6 

SP5 

638 

105 

CFX<U  «(0. 0,0.0) 

SP5 

639 

GO  TO  9^<9 

SP5 

660 

50  3 

CONTINUE 

SP5 

661 

RMU(l,LL>=i)aO(l,l) 

SP5 

662 

KHO(2,LL)=jEV(1,1) 

SP5 

663 

kN0(3,LU  = 30C<2,1) 

SP5 

6(.6 

kMOJA, LL) =9tV(2,l) 

SP5 

665 

RNCJ5, Ll)=000(3,1) 

SP5 

666 

RriO(6,LL)=t)EV(3,l) 

SP5 

667 

AlhOd  ,UU  =300(0,  IJ 

SP5 

668 

AlhO(2,UL) =3tV(4,  U 

SP5 

669 

A1K0(3,LL)=d0u(5,1) 

SP5 

650 

AlKu(A,Li.)=aEV(5,l) 

SP5 

651 

AlM0(5,uU=800(6,l) 

SF5 

6 52 

A1H0(6,LU  =3EV(6, U 

SP5 

653 

KMO(A,LU=KHC(A,LU»eArt(LL) 

SP5 

656 

RHU(5,LL)=-<nO{5,LU»PA«(LU) 

SP5 

6 55 

nMC(6,LU=.nM0(6,Ll)  •dAH(Lu) 

SP5 

656 

AIK0(<4  ,Ul)  =AIHU(A,LL)  *3AH(LU 

SP5 

657 

AINO  (5  ,Lt)  shINO  (5,1.1.)  •3AU(LL) 

SP5 

658 

AIM0(6,i.t.)  =AIho(6,LL)*£A«(tD 

SP5 

659 

THUAl.(l.LJ  =SOKT  (R.10(A  ,LL)  *♦  2* A1  NO(  A,LU  *»2)  *KAyAhP(LU  / HVLNTH 

SF5 

660 

IKIPk^S-1)  5202,5202,5203 

FMOO 

176 

5202 

CONTINUE 

SP5 

662 

C 

SP5 

6 63 

L 1 

HYOPRl  CALOUi.ATtS  TH;.  TOTAL  HYOROOYNAmu  PRESSURE. 

SP5 

666 

C 

SP5 

6 65 

CALL  HYCPRfc(HN,0Od,3EV,PAA ,PAV,6Xl,PRFAE ,PREIN, J '.oiO 

SF5 

666 

IkHO  = LL  - (LL/2)*2 

SP5 

667 

IF  (Ir.KJ  .£0.  11  HKlTt  (6,7)0) 

SP5 

668 

200 

FOrvNAi  (*1PK;SSUkc  oI6TnI0UTICN  01.  THE  HULL  FCn  THE  SPECIFIED  • 

SP5 

669 

2 * LONu IT ioNS* ) 

SP5 

670 

hRlTE  (6,698)  HO IGl , FN(  JJ)  , JA.h (LU 

SP5 

671 

69d 

FOkHAT  (///12H  CONOIIIONS-/^,HOHcAOING=F10.i.,5X, 

SP5 

672 

2 15H  FKOJu_-NUHoc-l=F  IO.A,5X,1Lh  WAVEuENG  TH/L  = F 1 0 .6) 

SP5 

6 73 

H.<m(6,697) 

SP5 

6 76 

697 

FORMAT  (//) 

SP5 

675 

HkITE(6,550) 

dP5 

6 76 

550 

FOkNAT (^JX,22H  PkcSSURc  01 S1RI8UT ION) 

SP5 

677 

KPA=0 

SP5 

678 

Oo  52ua  K=1,)U/S 

SPG 

679 

IF  (S1Fk(K))  5205, SaOi.  ,5205 

SP5 

680 

5205 

COMlNUc. 

SP5 

681 

KPA  = KPA»  1 

SP5 

6 82 

WkllL  (o,5206)K 

SP5 

683 

\ 


5t«« 

FuKH*T(73HOArPLlTUO£  ANO  PHASE  Uf  THE 

PRESSURE  FOR  THE 

SPECi.  IEO  P 

SP5 

%8% 

lUIKfS  (M  iECriON  I2t 

SP5 

%85 

MR1T£(6,5207) 

SP5 

%86 

WI7 

FO<<NmT<25X,13H  T*COOAOiNATEt OX, 13N  Z-CCOkOINATE, 7X, 1 Oh 

AHPLITUOt,! 

SP5 

%87 

leXiftH  PHAii) 

SP5 

%d8 

00  5200  JS«1,2 

SP5 

%89 

lFUS-1)  6222,6222,6223 

FMCD 

175 

»Z22 

CCSTlHUc 

SP5 

%91 

CSP>1.0 

SP5 

%92 

MRITE (6,622%) 

SP5 

%93 

»22% 

F0P.H«T(16H  STARaOARO  SIDE  ) 

SP5 

%9% 

60  TO  6225 

SP5 

%95 

»223 

CONTINUE 

SP5 

%96 

CSP«>1.0 

SP5 

%S7 

MR1TE(6,6226) 

SP5 

%98 

6226 

FORRAI  (IIH  PORT  SIDE  ) 

SP5 

(}99 

6225 

OOMlNUe 

SP5 

500 

00  5209  J:<1,FCN 

SP5 

501 

J««J*N0N*(JS-1) 

SP5 

502 

TPRcS>  XX(i<,J)*tL»CSP 

SP5 

503 

ZPR£S*Yr(K,J)*EL 

SP5 

50% 

AD=SQnT  (P2EkE  (KPA,  J,i)  •♦2%PKEIH(XPA,  JK) 

♦ •2) 

SP5 

505 

IFlPfttlMlKPA, Jhn  751,752,751 

SP5 

506 

252 

IF(PF£r£(KPA,JH))  751,753,751 

SP5 

507 

753 

PH=o.O 

SP5 

508 

GO  TO  75% 

SP5 

509 

751 

PHsmImN2(PREjIH(<PA,  JM)  ,PRER£(KPA,  jri))*FACT 

SP5 

510 

75% 

continue 

SP5 

511 

WkITE (6,5210)  tHRES,2PKES,AV,?H 

SP5 

512 

5210 

FORNmT  (25X,F10.%,10X,F10.%,10X,F104%,19X,F10.%) 

SP5 

513 

5209 

u u N 1 In  vk. 

SP5 

51% 

520  3 

CONTINUE 

SP5 

515 

520% 

0 o«9l  1 NU£ 

SP5 

516 

5203 

CONTINUE 

SP5 

517 

IF  (ML  .EQ.  2)  CALL  LCAOS 

SP5 

518 

612 

SP5 

519 

RHHO (KIH) =3HAX (NJKjTHCAU 

SP5 

521 

THoiFF  = THnO(KTri)  - Rh«0(KIH) 

SP5 

522 

IHCRAi-  = Adj(IriOIFF) 

SP5 

523 

IHHO(MH)  = ITEnAT 

SP5 

5 2% 

HnO(irtR4l,KIh,l)  * THMO(KTH) 

SP5 

525 

H«0(irt'<AI,KTH,2)  = PHMO(KTH) 

SP5 

526 

IF  (IrlURAJ  .lE.  cPSS  GO  TO  1505 

SP5 

527 

IF  (ITlKAT  .tQ.  5)  GO  TO  1505 

SP5 

528 

THMO(xrH)  = ThrtO(KTH)  - SI GN (1  ., I HOI FF) *FCI*IH0RA0 

SP5 

529 

GO  TO  1500 

SP5 

530 

1505 

IF(IFOlL-i)  2%ul,2<-01,2%02 

FMCO 

176 

2%02 

di<lTi<b,Zl  J5) 

FMCD 

177 

00  561%  JH=1,2 

FMCC 

178 

IF(JH  .£■).  1)  H=1 

FHOC 

179 

IF(JM  .tJ.  2)  n=6 

FHCD 

180 

1F(H  .tJ.  6 .ANO.  FKNTOP  .EQ.  HIM)  GO 

TO  561% 

FMOO 

181 

Hf<ITE(H,21d9)  I iro,H0IGl , VK.'IOT S ,FN ( JJ) 

FHOO 

182 

561  % 

CuNT INUE 

Fnoo 

183 

HkITc (6,2200) 

FHOO 

13% 

HRxTE (0,2201) 

FHCO 

185 

I 

1 

i 

I 

j 

J 

J 


*•  ■ >■?>  . « . 
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00  23C0  LX3i,N0K 

FKOD 

186 

tH£lNC^N0K-LX«-l 

FKOO 

ld7 

2300  rfKITc(6,2232)  ZMLMEINC)  t (T  (LHCIHC , KX)  , XX=  1 , 1Q> 

FttOO 

133 

Mk.1T£(6>220<>) 

F«00 

189 

HR1T£(6,2205> 

FKOO 

190 

OU  2301  (.X^lyNuX 

FKOO 

191 

J.Mc.INC-=H0K-LX*1 

FKOO 

192 

U;ilT£.(6t2202)  ZK((.HEINCI  » (T  (LHEINC , KX>  , KX=  1 1 , 20) 

FKCO 

193 

2301  <4klTE(6»2203)  (T  tL)<ElNC,KX)  tKX>21,30) 

CHOO 

194 

HKi.TE(6,220b) 

FKCO 

195 

WRITt(6,220Z) 

FKOO 

196 

00  2302  LX^liNuK 

FKOO 

197 

».HE1N0=NUK-LX41 

FKCO 

198 

HRlTc(6,2202)  ZN(LHEINC)  , (T  (I.HEINC,  XX) , KX=3 1, 40) 

FKOO 

199 

2302  WRxTE(6,2203)  ( T (LHE INC, KX) ,<X=41 ,50) 

FKOD 

200 

WRITE(6,220d} 

FKCO 

201 

HR1TE(6,2209) 

FKOD 

202 

00  2303  LX=1,N0K 

FKOO 

203 

LME1NC*Nu<-LX#-1 

FKCO 

204 

WRITE <6, 2210)  Z h( LHEINC) , (T (LhElMC , XX) , KX=5 1 , 56) 

FKCO 

205 

2303  Hfi.ITt(6,2211)  (T <LH£INC,XX) ,XX=S7,62) 

FKOD 

2 06 

IE(IRkINT)  2401,2401,8000 

FKOO 

207 

dOOQ  MRITE(b,dOQl) 

FKOO 

208 

00  8101  10=1,3 

FKOO 

2 09 

J0=10+10-l 

FKOO 

210 

8101  riRlTE(b,d021)  ( TOOA ( 1Q,X0) ,X0= 1,6) , JO , dOOA (IQ) 

FKCO 

211 

00  8102  10=4,6 

FKOO 

212 

JQ=IC+ 10-7 

FKOO 

213 

8102  UR1Tl(6,9022)  (TOOA ( 1Q,KQ) ,KQ= 1,6) , JO, 300A (10) 

FKCO 

214 

HKlTE(6,d002) 

FKOO 

215 

00  8103  10=1,3 

FHUO 

216 

JQ=10*10-1 

FKCO 

217 

8103  HRlTt(6,8021)  ( lOOF ( IQ,XC) ,KQ= 1,6) , JO, 800F (10) 

FKOO 

216 

00  0104  10=4,6 

FKCO 

219 

JQ=lQ»IQ-7 

FKCO 

220 

8104  HklT(.(6,3022)  ( TOJF  (10  ,X0)  , X0»  1 ,6) , JO , 300F  (10) 

FKCO 

221 

HMTt(o,8d03) 

FKOO 

222 

00  ol05  10=1,3 

FKCO 

223 

JQ=xQMQ-l 

FKCO 

224 

8105  HRITc(6,d021)  ( lUOd ( 10 ,XQ) ,XQ= 1, 6) , JO , dOOd ( 10) 

FKCO 

225 

00  ol06  i0=4,6 

FKOO 

226 

JQ=iCl*IJ-7 

FKCO 

227 

8106  HRITL(6,d022)  ( T003  ( 1Q,KQ)  ,KiJ>:l  ,6) , JO,  3003  (10) 

FKCO 

228 

HKlIt(6,3004) 

FKOO 

229 

00  8107  10=1,6 

FKCO 

230 

8107  r(KlTE(6,d023)  90JC  (1 0) , ( TOOC  (IO,XQ)  ,XQ  = 1 , 6) , 3OU0  (10) 

FKOO 

231 

HKirc.(6,ddll) 

FKOO 

232 

00  8H-0  10=1,3 

FKOO 

233 

JO=Iu» 10 

FKOO 

234 

dlOo  n,^IT£(6,8021)  (lEVAdO.XO)  ,XQ=l,6),J0,3c.VA(I0) 

FKCO 

235 

JO  8109  10=4,6 

FKOO 

236 

JG=I0»10-6 

FKCO 

237 

810d  rlRm(b,d022)  (TEVA(1Q,K0)  ,XQ=l,6),JQ,dE\/A(IQ) 

FKCO 

236 

W,^1Tl(6,3012) 

FKCO 

239 

00  6110  10=1,3 

FKOO 

240 

JQ=I0* 10 

FKOO 

241 

811C  WklT£(6,d021)  ( TEVF ( 1C,XG) ,XU* 1,6) , JO, 3EVF (10) 

FKCO 

242 

00  •111  IQ->»,6 

FHOO 

2W 

jQ=:a*iQ-6 

FMOO 

ZSk 

• Ul 

>(RITE(6>a022)  (7EVFUQ,XQ>  ,JQ,9£yr(lQ) 

FMOO 

2A5 

i«RlTt(6»4013) 

FHCO 

2A6 

00  8112  XQ«1»3 

FMOO 

Z*i7 

J0*1U^ IQ 

FMOO 

Zkt 

■ 112 

HKlT£t6»3021)  (TEVaclQiKQ) <KQ>lt61 ,JQ»3EV3(IQ) 

FHOO 

2A9 

00  8113  IQ>4,6 

FMOO 

250 

JQ»iO+IQ-6 

FHOO 

251 

•113 

NiaT£(6iSQ22)  (TEVa(IQ,KQ) «Ka<1.6) ,JQ»eCVB(IQ) 

FMCO 

252 

MR1TE(6|801>») 

FHOO 

253 

00  »ll*i  10>1|6 

FHOO 

25L 

■11  <» 

MKlTL(6t  J023)  3EVC(IQ)<(TEVC(10>KQ»  tKQ«lt6),BEVaaQ) 

FMOO 

255 

24Q1 

IF  (IkSrp  .EQ.  1}  CALL  EXCFR 

■ FMOO 

256 

CALL  HCTUUT 

SF5 

532 

IF  (KL  .EQ.  1)  GC  TO  FAl 

SP5 

533 

ITEHP  * PRhTOP 

SP5 

53A 

KOSMl  « NOS  - 1 

SP5 

535 

00  2oO  ISTAT>1 ,NOSni 

SP5 

536 

PRN70P  = »1IN 

SP5 

537 

IF  (STlO(xSTATJ  .(.T.  0.)  PRNToP  « ITEMP 

SP5 

538 

CALL  LCOUUT(ISTAT) 

SP5 

539 

2SQ 

CCMTINUl 

SP5 

540 

PRNTOP  = ITEMP 

SP5 

541 

7fll 

CCNTIMJE 

SP&- 

542 

^(9i 

CONTIKUc. 

SP5 

543 

999 

CONTiNUc 

SP5 

544 

CALL  hCTAOL 

SP5 

545 

RETURN 

SP5 

546 

cNO 

SP5 

547 

89 
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1 

SUBROUTINE  FOIL{TODF.T£VFtBOOFt8EVF.VKNOTS.WAHPLtHUGlfGXIfELL.RHO. 

FOIL 

2 

aNF.Ol.OZtJS.OOiOStUG.OT.OS.OB.TMAStT.NFkEO) 

FOIL 

3 

COMMON  /OFOIL/  GA(6.6) 

FOIL 

4 

DIMENSION  TOOF  (6.«>)  .T£vF(6.6)  .bODF  (6)  .REVF  (6) 

FOIL 

s 

5 

dimension  01 (lU) .u2(10).03C10)«OA(10).05(10) .06 ( 10) .07 ( 10) .08 ( 10) . 

FOIL 

6 

209(10) 

FOIL 

7 

DIMENSION  GB(6.6) .GC(6.6) .6F (6) . T (32.62) .GAA(6.6) 

FOIL 

8 

complex  CK,B2.C2.Hlt333.PlC33.P2H35.PlC3S.P2C3S.P1022.PlB24,PlC24,P 

FOIL 

9 

12B26.P1C25.P1b'.4,P2m4«,P1CA4,P23A6.P1CA6.H1B53.P1CS3.P3855.P1C5S.P 

FOIL 

10 

0 

22C55.PlB62.Plb64,PlC64,P2B66.PlC66 

FOIL 

11 

complex  C.EXL.eXM.AA.APG.HSJ(N,rtC0S»Vl.V2.Wl.W2.PLl.PF2.PF3.PL2.PF4 

FOIL 

12 

2 .PMl .PF5.PF6 « Bb . w3 

FOIL 

13 

COMPLEX  Gd.GC.oF 

FOIL 

14 

P1A33=P1A35=P183S=P1A22=P1A24=P1A26=P1B26=P1A44=P2A44=P1A46=P1046= 

FOIL 

15 

5 

lPlA55=P1835=P2B55=PlAb6=PlB66=P3B66=0. 

FOIL 

16 

PlB33=PlC33=P2d36=PlC35=P2C35=PlH22=P1824=PlC24=P2826=PlC2o=PlBAA= 

FOIL 

17 

2P2R44=PlCAA=P2U46=PlC46=Pin53=P3B55=PlC55=P2C55=PlB62=PlB64=PlC64= 

FOIL 

18 

3P2866=PlC66=(u.,0.) 

FOIL 

19 

PF2=PF3=PF4zPFS=PF6=(0..0.) 

FOIL 

20 

} 

DO  200  1=1.6 

FOIL 

21 

GF(I)=(0..0.) 

FOIL 

22 

DO  201  J=1.6 

FOIL 

23 

IF(NFREQ  .£0.  1)  GA(I,J)=0. 

FOIL 

24 

GB(I.J)  = (0..0.) 

FOIL 

25 

> 

201  GC(I,J)=(0.,0.) 

FOIL 

26 

200  CONTINUE 

FOIL 

27 

c 

FOIL 

28 

c 

MULTIPLICATION  FACTORS  FOR  NON-OIM.  AhE 

FOIL 

2P 

c 

ACCEL  FORCLS  (l./MASS) 

FOIL 

30 

) 

c 

VEL.  forces  (1./HASS)»S0RT (LPP/GRAV) 

FOIL 

31 

c 

OISPL.  forces  (1./HASS)«(LPP/GRAV) 

FOIL 

32 

c 

SUBSCRIPTS  11. 13.31, 33. 22 

FOIL 

33 

c 

FOIL 

34 

c 

INERTIA  MOMENTS  ( 1 ./MASS) /LPP**2 

FOIL 

35 

> 

c 

ANGULAR  VEL.  MOMENTS  ( 1 ./HASS) •SORT (LPP/GRAV ) /LPP»»2 

FOIL 

36 

c 

angular  OISPL.  MOMENTS  ( 1 ./MASS) * (LPP/GRAV) /LPP*»2 

FOIL 

37 

c 

SUBSCRIPTS  53.44,46,64,66 

FOIL 

38 

c 

FOIL 

39 

c 

CROSS  INERTIA  (l./HASS)/LPP 

FOIL 

40 

1 

c 

CROSS  VEL.  (l./MASS)»SORT (LPP/ORAV)/LPP 

FOIL 

41 

c 

CROSS  OISPL.  (l./MASS)»(LPP/GRAV)/LPP 

FOIL 

42 

c 

SUBSCRIPTS  IS, 35, SI ,53.24,26,42,62 

FOIL 

43 

c 

FOIL 

44 

c 

EXCIT.  FOpCES/RAVE  AmPL.  LPP/(MASS»GHAV®wAMPL) 

FOIL 

45 

, 

c 

SUBSCRIPTS  1,2.3 

FOIL 

46 

c 

FOIL 

47 

c 

EXCIT. MOM, /wave  AMPL.  1./(MASS»GRAV»WAMPL) 

FOIL 

48 

c 

SUBSCRIPTS  “.S.B 

FOIL 

49 

c 

FOIL 

SO 

GRAV=32.2 

FOIL 

51 

RMASS=1 ,/TMAS 

FOIL 

52 

ZLOlVG=£LL/GRMV 

FOIL 

53 

£LLSO=ELL»ELL 

FOIL 

54 

fai=rmass 

FOIL 

55 

FB1=RMASS*S0PT (ZLOIVG) 

FOIL 

56 

fcurmass^zloivo 

FOIL 

57 

FA2=FAI/ELLS0 

FOIL 

58 

! 
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3 


0 


3 


3 


0 


5 


0 


3 


0 


FB2=F81/EUl.S0 

FOIL 

59 

FC2=FC1/ELLS0 

FOIL 

60 

FA3=FA1/EUL 

FOIL 

61 

FB3=F81/ElL 

FOIL 

62 

FC3=FCl/ELL 

FOIL 

63 

FD1=ELL/(TMAS“GHAV*WAMPL1 

FOIL 

6A 

F02=F01/ELL 

FOIL 

65 

FOIL 

66 

PI=3.1A159 

FOIL 

67 

XMU= (180. 0-HOGl)/S7. 2957795 

FOIL 

68 

U=VKN0TS*1.6B9 

FOIL 

69 

S1NMU=S1N(XHU) 

FOIL 

70 

COSMU=COS(XMU) 

FOIL 

71 

0«EGAE=GXl»SO»<T(GRAV/ELL) 

FOIL 

72 

60IVU=GSAV/(2.»U) 

FOIL 

73 

OHEGA=-GOl VU*30RT ( (GOl VU«GD1VU) ♦ 

(2.»6DIVU»0HE6A£) ) 

FOIL 

7A 

A1=PI»RH0 

FOIL 

75 

A3=A1«U 

FOIL 

76 

Bl=0.5»RhO»U 

FOIL 

77 

ci=ei»o 

FOIL 

78 

8B=CMPLX(0.,1.) 

FOIL 

79 

SUMMATIONS  FOrt  FOIL  COEFFICIENTS 

and  excitation 

FORCES 

/ MOMENTS 

FOIL 

81 

FOIL 

83 

DO  100  1=1. NF 

FOIL 

8A 

CPL=01 (I) 

FOIL 

85 

SPAN=02(I) 

FOIL 

86 

CHORO=OJ(1) 

FOIL 

87 

S=OA(11 

FOIL 

88 

Y=05(I) 

FOIL 

89 

2=06(1) 

FOIL 

90 

0GAMMA=07 (I) 

FOIL 

91 

CLZ=08(I) 

FOIL 

92 

ASP=09(I) 

FOIL 

93 

NCPL=CPU 

FOIL 

9A 

area=span»chomo 

FOIL 

95 

ASPRAT=SPAN/ChOO0 

FOIL 

96 

ASPC0R  = ASP9AI/(ASr’KAT.ASP) 

FOIL 

97 

CPUsCPLoASPCOw 

FOIL 

98 

GAMMA=OGAMMa/57. 2957795 

FOIL 

99 

SINO=SIN(0Amma) 

FOIL 

100 

SlN0SO=9INGoSIH0 

FOIL 

101 

COSO=COS(Gamma( 

FOIL 

102 

C0SGS0=C0S(.i«>CO3G 

FOIL 

103 

CLALPH=2.»0! 

FOIL 

lOA 

XKl  =0.5®0'*£GAt®CMOK0/U 

FOIL 

105 

XK2=  (OMeGA«Ovt^,A)  /G9AV 

FOIL 

106 

XK3=0.5'’  (0“FGAE»0MtGAt)»CM0R0»C0SMU/GHAV 

FOIL 

107 

CALL  THE0(XK1 .CK) 

FOIL 

108 

A2=0.25®A9tA»LHOwO'>CPL 

FOIL 

109 

82=AREA»CLALPh»CK«CPL 

FOIL 

110 

C2=CL2®AR£a»Cn<>CRL 

FOIL 

111 

• « • o a » 

• ♦ • 

• 

• 

• 

• 

FOIL 

112 

IF(NFRE0  .GT.  1)  00  TO  308 

FOIL 

113 

P1A33=P1A33. (A2UCOS0S0) 

FOIL 

llA 

PI A35=PIA35» (AZ^S^COSoSO) 

FOIL 

115 
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PlA55=PlA5S»<Aa*COSOSO»{CMORD«CHORO/32.»S*S)) 

PI A22=P1 A22» ( A2»SINGS0) 

P1A2A=P1a2a»(  (A2*Z»SIn6S0)«(A2»Y*SING»C0SG)) 

P1A26=P1a26* (A2»S»SIN6S0) 
Plft4A=PlAAA*(At'EA«AR£A»SOAN/A8.)«CPL 
P2A4A=P2AAA* (A2» ( (/•S1NG*Y»C0S6)«»2> ) 

PI A46=P1 A46» ( {A2*^*S»SlNGSQ) ♦ (A2*Y»S«SING»C0SG) ) 
PlA66=PlA66«(A2.SlN6Su»(Cn0RD»CH0«0/32.-S*S)) 

300  PlR33=PlB33*(b2»COSGSQ) 

PIB35=P1835*  <A2»C0SGS0) 

P2fl35=P2035» (a2«COSGSU»(S* (CHOHO/4. ) ) ) 

P 1 B53=P 1 653 ♦ ( b2* ( S- ( CHORO/4 . ) ) *COSGSO) 

P10S5=P1855* (A2«S«COSGSO) 

P2R55=P2B55» ( (Ch0R0««3) 'SPAN^COSGSO/lb. ) «CPL 
P3B55=P3055* (B2» ( S* (CnORO/4 . ) ) • (S- (CnORO/4 . ) ) *COSGSO) 
P1822=P1B22* {d2»SlNGS0) 

P1B24=P1B24« ( {b2*2»SlNGSO) ♦{02«Y*S1N6»COS6) ) 

P1B26=P1626* ( A2«SImGS0) 

P2B26=P2B26* (o2» (S» (ChORO/4. ) ) •SIN6S0) 

P104,a=P1B‘*4.  (tJ2«SPAN»SP an/12.) 

P2044=P2044. (b2» ( ( /•S1N6»Y»C0SG) *»2) ) 

P).B46=P1B46*  ( ( A2«/»SIN6S0)  ♦ ( A2»Y«SING»C0SG)  ) 

P2R46=P2B46> (b2»(S‘ (CriORO/4. ) ) • ( (2«S1NGS0) ♦ ( Y»S ING*C0S6)  ) ) 
P1B62=P1B52»  (b2»(S-lCN0H0/4.)  )<>S1"iGS0) 

P1B64=P1R64. (b2« (S-(C«0R0/4.) ) •( (Z'SlNGSO) ♦ ( Y»S1N6»C0SG) ) ) 
P1H66=P1B66* (A2»b»SlNbSO) 

P2B66=P2R66* (b2»(S* (CHORO/4.) )«(S-iCH0O0/4.) )»SlNGbO) 
P3B66=P3B56*  ( <CmJRO<‘°3)  »SPAi-i»SlNGSO/16.  i ‘CPL 
P1C33=P1C33»  (C2»CbS(>) 

P1C35=P1C35* (b2»CuSGSQ) 

P2C35=P2C35*  (i-2»  (5-(ChORO/4.  ) )«COS(j) 

P1CS3=P2C35 

P1C5S=P1C55« (b2»(S-(CHORD/4.) )»C0S6S0) 

P2C55=P2C55» (C2« (s* (CnORO/4. ))» (S- {CHORO/4. )) *COSG) 
PIC24=P1C24. (C2»Y®SlNo) 

P1C26=P1C26* (o2»SlNbSO) 

P1C64=P1C&4» (C2»(S-(ChORO/4.) )»Y*S1NG) 

PlC66=?lCb6*  (b2B(S-(Crt0R0/4.)  )«SIN(,SO) 

P1C44=PK44»  (C2»Y0(  (Y»C0SG)*(2'>SI'''0))  ) 

P1C46=P1C46*  ( (ri2»2»SlNGSO)  ♦ (82»Y»SIN(>»C0SG) ) 


CALL  exCIT(XK3.XM.CK,exL»eXM) 

25  C=CMPLX(C0SG.SINMUG) 

XREAL=XK2»<;iN0 
XlMAGsXKEoSINMUoCOSiJ 
AA=CMPLX ( XPEAL .-XlMAG) 

ARG  = 0.5®AA<>SPAN 

HSI'J=0.5»(C£xh(ARO)-CLXP(-arO)) 
HCOS=0.5» (CEXH(ARu) ‘CEXPC-ARG)) 

Vl= (2./AA) orSIN 

V2=  (1  ./(AA»AA)  ) <>  (AA»SPA.n»HC0S-2.»MS1N) 

XREAL=XK2»Z 

XIMAG=-XK2®y<>SIN''IU 

AA=CMPLX(XR£AL.XlHAO) 

AA=WAMPL®OREGA»cexP(AA)‘’C 

Wl=AA»Vl»rffl 

W2=AA*V2»SB 


-t-.  .. 


W3=AA»0d 

IF(NCPL-l)  Sl.SltbO 

50  Wl=2.»Wl 
W2=2.»w2 
W3=2.»W3 

51  XImaG=-XK2®S“C0SHU 
AA=CEXP(C'<PLX(0..XIMAG)  ) 

C=CM0R0®£XL*AA 
PLl=C»AlMAG(wl)®Ud 
PF3=PF3*  (PU®C0SG«ASPC0«) 

PL1=C®REAL(w1) 

PL2=CH0R0®W2«tXL 

PM1=0.25®CMORU«CmORU»EXM»AA 

PFS=PF5- ( ( (-S“PL1 ) -PMl «d0»AlMA6 (W3) ) ‘COSG) ‘ASPCOR 
HD=H0G1 

IF(HO  .GT.  IBO.)  nO=HO-180. 

IF(HO  .GT.  172.)  UO  TO  100 
IF(HD  .LT.  8.)  GO  TO  100 
PF2=PF2-(PLl®SINo»AbPCOR) 

PF4=PFA* (PL2*PL1® (Y«C0SG*2»SING) )»ASPC0R 
PF6=PF6‘{  ( (Son'Ll)  ‘PMl»ReAL(W3))»SING)»ASPC0R 
100  CONTINUE 


FOIL  COEFFICIENTS  (NON-OIM.) 


IFINFWEO  .GT 

. 1)  GO  TO  310 

6A(3 

3)=FA1» 

(♦A1»P1A33) 

GA(3 

5)=FA3« 

(-A1«P1A3S) 

GA(5 

3)=GA(3 

.D) 

GA(5 

S)=FA?» 

(•ai®P1aS5) 

GA(2 

2)=FA1» 

CA10P1A22) 

GA(2 

A)=FA3» 

(-ai®k1A2a) 

GA(2 

6)=FA3® 

(♦Al»PlA2o) 

GA(A 

2)=0A(2 

.<•) 

GA(A 

A)=FA2» 

(«AI»(P1AAA.P2AAA)) 

GA(4 

6)=FA2® 

(-AI®P1A«6) 

GA(6 

2)=GA(2 

.6) 

GA(6 

A)=GA(A 

.G) 

GA(6 

6)=FA2» 

CAI«P1A66) 

310  Gd(3 

3)=Fdl® 

(♦dl®Plt)33) 

G8(3 

S)=Fd3» 

(-A3®Bi«3s-oi®P2ti35) 

Gd(S 

3)=Fb3® 

Gd(5 

5)=Fd?« 

( »A3»KlB55*A3®02P55*81®‘^3d55) 

6d(2 

2)=Fdl® 

(*n\or-\riZa) 

GH(2 

4)=rd3» 

Gd(2 

6)=Fd3» 

(♦A3®wly2(,.(jl«P2q35) 

GB(A 

2)=Od(2 

GH(A 

A)=Fd2® 

(•m®(PIri<4A.P?RAA)) 

G8(A 

6)=Fd2® 

(-A3»PlHA6-dI®D24A6) 

Gd(6 

2)=Fs3® 

(♦dl»BlB62) 

GO  (6 

A)=Fd2» 

(-H1®P1H6A) 

GB(6 

6)=Fd?» 

(♦AT^PldGO'HlsPddGG'AJ'PSBGG) 

GC(3 

3)=FC1» 

CCI»P1C33) 

GC(3 

5)=FC3» 

(-C1®(P1C35*‘^2C35)) 

GC(5 

3)=FC3» 

(-CI®P1C53) 

GC(5 

5)=FC2» 

(•Cl»lPlCs5‘P2C55)) 

o n o o n r>  n 


GC(2.4)-rC3»i-Cl*PlC24) 

GC(2»6)=FC3»(»C1»P1C26J 

GC(4,4,)=FC2«(*C1«P1Cas.) 

GC(‘t.6)=FC2»(-Cl*PlC46) 

GC(6.4)=FC2»(-C1»P1C6<.» 

GC(6.6)=FC2*(»Cl«t*lC66J 
DO  <>00  K=1.6 
T(NFREQ.K)=GA(K.K) 

T (NFREO.K* 10 ) =REAL (GR (K,K) ) 

T(NFREO»K'20)=AIMAG(G8(K.KH 
T(NFREOtK*30)=>^£AL(GC(K,K))  . 

AOO  T<NFREO>K«AO)=AIHAG(GC(K.K)) 

T(NFREOt7)=GA(J,5) 

T(NFREO.R)=GA(2,6) 

T(NFREQ.9)=GA(2,4) 

T(NFRE0.10)=GA(<>,6) 

T(NFREO«17)=  K£AL(Gd(3.Sn 
T(NFRE0.27)=AlMAG(0d(3.5)» 

T(NFRE0.18)=  n£AL(G9(2.6)) 

T(NFRE0.2B)=AlMAG(bd(2.6»> 

T(NFRE0.19)=  R£AL(G8(2.A)) 

T(NFREQ.29)=AlMAG(OB(2.An 
T{NFREQ>20)=  REAL(Gd(A,6>) 

T (NFRE0>3U)=AlMA6(0e(A.6) ) 

T(NFR£0.37)=  R£AL(GC<3,5)> 

T(NFR£O.A7)=A1maG(GC(3.S)) 

T(NFR£0i3&)=  kEAL(GC(2.6)) 

T (NFREQ>A8)=AlMAG(GC(2.6)) 

T{NFR£0>39)=  «£AL(6C(2.A)) 

T(NFRE0.A9)=AImaG(0C(2.a) ) 

T(NFR£O.AO)=  R£AL(GC(A,>>)) 

T<NFR£Ot50)=AlMA6(OC(<*.6)) 

MULTIPLICATION  OF  ACCELERATION  TERMS  riY  -GXl»GXl 
MULTIPLICATION  OF  VELOCITY  TERMS  flY  *0X1 

A=-GXI»GXI 

0=GXI 

00  202  1=1.6 
00  203  J=1.6 
GAA(1,J)=A*GA(I .J) 

203  G0(I.J)=B»GR(1.J) 

202  CONTINUE 

FOIL  COMPONENTS  FOR  MATRICIES  -TOO  AND  TEV- 

00  205  1=1.3 

00  206  J=1.3 

IEV=I.I 

JEV=J*J 

I00=IEV-1 

J0D=JEV-1 

TODF(l.J)=GAA(10U.JOO)-AlMAG(6B(IOO.JOO) ) »REAL (GC { 100. JOO) ) 
TOOF(I.J«3)  = .REAL(GBUOO.JOO))«A1MAG(GC(10D.JOD)  ) 

TOOFI I .3. J*3)=T00F ( I .J) 

T0DF(I.3.J)=-I0DF(l.J«3) 

TEVF(I,J)=GAA(I£V.JEV)-A1MAG(0B(1EV.JEV) )»REAL(GC(IEV.JEV) ) 


TEVFd  ,J»3)=*r(t:AL  (OtJ  ( lEV.  JEV) ) ♦AIma(>(6C  ( ItV.  JEV)  ) F( 

TEVF(I*3,J*3)=TEvh (1«J)  F( 

TtVF(l*3.J)=-T::vMI,J»3)  F( 

206  CONTINUE  F( 

205  continue  F( 

F( 

excitation  FUkCES  and  moments  (NUn-UIH.)  F( 

FI 
F( 

OF (2)=FD1*(*A3*PF2)  r( 

GF  (3>=F01»{'»Aj»PFJ)  F( 

GF  (A)=F02»(*AJ«PFA)  F( 

oF{S)=F02"(*a3*PF3)  F( 

GF  (6)=F02*(*A3*PFo)  F( 

Oo  A02  K=l«6  F( 

T(.NFRtO»K*50)=  PtAL(GF(K))  F( 

A02  T (NFREO»K*56)=aImao(GF(K) ) Fi 

F( 

FOIL  COMPONENTb  FOr<  ••■lATPiCIEb  -UOU  AND  oEV-  F( 

F( 

■30QF(1)=0.0  F( 

BOOF(2)=*r'EAL(oF  (J)  ) fi 

BjnF(3)=*M£AL(GF(3))  F( 

MOOF{4)=0.0  F( 

«0DF{5)=-a1mAo(GF (3) ) F( 

HoOF(6)=-«1maU(GF  (t>) ) F( 

Mt'/F  ( 1 ) =*r'cAL  <GF  (^)  ) F( 

N-.VF  (P)  =*»-£AL  (GF  (6)  ) Fi 

J3C.  VF  ( 3 ) = ♦*^£  AL  loF  ( 6 ) ) Fi 

VF  (a)s-hImai>(GF  (2)  ) Fi 

rlEVF  (b)  =-«IMA0(GF  (A)  ) Fi 

Hi;VF(6)=-AIMAU(GF  (o)  ) Fi 

‘'tTUPN  fi 

999  E.nD  Fi 
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SUBROUTIt^E  THEO(XKliCK) 
COMPLEX  CK 


1001 

FOiviIkT  (• 

JO 

IER»*,I2) 

1002 

FOKMAT (♦ 

J1 

IER**,I21 

1003 

FOriKAT  (• 

YO 

I£R=*, 12) 

lOOH 

fokult (* 

Y1 

IER«*,I2) 

call  l3ESJ(XKlf 0,XJ0,1.£-6,IER> 

IF ( 1 CIV • C£ • 3 1 GO  TO  77 

call  ia£SJ(XXl,l,XJl,l.E-6,IEK.) 

IF(lEii.GE.3l  GO  TO  76 

CALL  lBESY(XKltO,YOi lER) 

lFtILf<.CQ.3)  GO  TO  79 

CALL  16£SY(XK1,1,Y1,1£R) 

IF(1EK.EQ.3)  Go  TO  80 

T1=XJ1*Y0 

T2=Y1-XJ3 

X=XJ1*T1»Y1*T2 

Y«-Y1*Y0-XJ1*XJ0 

OK=CHPLX(X,Y) 

X=T1*T1*T2»T2 
CK^CK/X 
GO  TO  81 

77  WkITc(6, 1091)  IcR 
GO  TO  81 

78  HiviT£«6,1002)  lER 
GO  TO  81 

7-3  HRlTt  (6.  1003)  lER 
GO  TO  <3l 

80  MRlTE(6|lQ0<i)  lER 

81  ivEJUfvN 
cNO 


THEO 

2 

THEO 

3 

THEO 

L 

THEO 

5 

THEO 

6 

THEO 

7 

THEO 

8 

THEO 

9 

THEO 

10 

THEO 

11 

THEO 

12 

THEO 

13 

THEO 

IL 

THEO 

15 

THEO 

16 

THEO 

17 

THEO 

18 

THEO 

19 

THEO 

20 

THEO 

21 

THEO 

22 

THEO 

23 

THEO 

2L 

THEO 

25 

THEO 

26 

THEO 

27 

THEO 

28 

THEO 

29 

THEO 

30 

THEO 

31 

THEO 

32 

SUakCUU.iE  tXCIT(XK3,XKl,CK,SXL,EX«» 


CC>'PLtX  v-K 

,Tl,T2,T3,TL,c.XL,tXM,V 

1001  FU.-vMaT  (* 

JO 

1Ek=*i 12) 

1002  FORMAT  (♦ 

J1 

IER=»il2) 

100  3 r UjvMlT  (* 

J2 

1£K=»,I2) 

100  k Ftin.M*.I  (♦ 

J3 

IER=», 12) 

IF(XK3)  2» 

J»3 

2 ISIGr=0 

GO  TO  L 

- 

3 ISIGn=1 

I*  XK3=ASS(X><i) 

CALL  lecaJCXKajOfXJO.l.E-kjIER) 

If  acR.Lt..3)  GU  TO  77 

CAl,L  I5iiJ(XK3,l,XJl,l.E-6,lES) 

IfaER.oE.I)  GO  TO  78 

uALl  IdESJtXK3i2.XJ2|l.E-b,IER) 

IF (lEK.Gi.3)  Go  TO  79 

CAlL  I dEi J ( XK3 y 3 > X J3 f 1 • E “6  I i£k ) 

lF(i£R.G£«3J  GO  TO  80 

IftlSIGN)  5,b,6 

5 XJ1=-XJ1 
Xj3=-XJ3 
XK3=-XK3 

6 Tl^CF.HLXtXJOy-XJl) 

T2s71»C< 

R1=0.5*X<1*(XJ0+XJ2) 

T3-CKfLX (0. (klJ 
£Xi.=  T24T3 
TlsXJ0»O< 

T2=XJl*(l.-oK) 

V=CHfLX(a. , 1 .) 

I2=V*T2 

Rl  = (yJl*XJ3)*(X<l/<«.) 

TCsLt'f'i.X  (Rl,  C. ) 

I4=CKFLX(XJ2)0.) 
ex‘'=i  i+i 
GO  TO 

77  KkITl  (6.  lOOU  i£R 
Go  TC  ei 

7o  WKlTt  1G>  U02)  lER 
Go  TC  81 

i 79  «^ITi.<b.  1033)  lER 

GO  TO  81 

6C  ^nITI ( o» lOOL)  lER 
81  fvGrUr.N 

S.NO 


EXCIT 

2 

EXCIT 

3 

EXCIT 

b 

EXCIT 

9 

EXCIT 

b 

EXCIT 

7 

EXCIT 

8 

EXCIT 

9 

EXCIT 

10 

EXCIT 

11 

EXCIT 

12 

EXCIT 

13 

EXoIT 

14 

EXCIT 

15 

EXCIT 

16 

EXCIT 

17 

EXCIT 

18 

EXCIT 

19 

EXCIT 

20 

EXCIT 

21 

EXCIT 

22 

FXCIT 

73 

EXCIT 

EXlIT 

75 

EXCIT 

26 

EXCIT 

27 

EXCIT 

28 

EXCIT 

29 

EXCIT 

30 

EXCIT 

31 

EXCIT 

32 

EXCIT 

33 

EXCIT 

34 

EXCIT 

35 

EXCIT 

36 

EXCIT 

37 

EXCIT 

38 

EXCIT 

’9 

EXCIT 

bC 

EXCIT 

41 

EXCIT 

4,'- 

EXCIT 

43 

EXCIT 

44 

EXCIT 

4b 

EXCIT 

EXCIT 

47 
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-VERSION  k - CDC  6700  - LOADS 


LOO 

JUNEt  1972 LOD 

LOD 

SUBROUTINE  LOADS  LOD 

COMMON  AM(27) .NUT.NMAS.NOStST (25) .DS(25) »EL *ELL . X (25.8) .Y(25.8) .PMLOD 
IAS (27) .XMAS (27) .ZHAS(27),RRG(27) tXG.ZG.THAS.EIAA ,E I55.E I66.EK6. TPLOO 
2ST.RF33.RM35.RM55.0GM,DIP.K.N.TVOL.ALFA(<.0.11)  .BErA(<.0.1l)  .HDG(10)LOO 
3.FN(5) .8AM(30) .COG(IO) .SOG(IO) .OMAX.OMIN.NFR.NOK ,\OB.NOH,OMEN (<»0 ) .LOD 
AFR(7.6) .XX (25.7) .YY(25.7) .DEL (25.7) ,SNE(25.7) .C--f  25.7) .ENl (25.7) .LOD 
SUN. OMEGA, ID. TITO(12) .WORD.NON, IXAST .HDGl ( 10 ) . f T ,C8V .CMC.PRNTOP  LOD 
COMMON  STl  (27)  ,YHAS(27)  , BEAM, DRAFT .DMAX.  IRR,M>.  , IEND-.  IBiLGE.  IPRES.  LOD 
2VNY.GRAV.AM0DL.M00,AKEELL.BEAMKL.ITS(25) .RD(?<^i .RFO(25» .DELTAO (25) LOD 
2.RKD(25) .SD(25) .COSPHO (251 .PHID (25) .STPR (25 ) ,mM0(50)  LOD 

COMMON  NWSTP.INWSTP(12)  LOD 

COMMON  /TEMP/  PDFR(6.25),POFI(6.2S).RMO(5.30).A!hO.-6.30),  LOO 

2 OAl  (11)  .OBI  (11)  .PEXR(6.25)  .PEXI  (6.25)  .DAOS  ( 1 0 .2'^ ) .:>OOS  ( 1 0 .26)  . LOD 

2 T0A(6.6) ,T0B(6.6) .SRF33(27) .SRM35(27) ,SRM55(27; , LOO 

2 PAV (25.7.6) ,PAA (25.7.6) . DA (6.6) .OB (6. 6) ,TEV(6,6) . REV (6.1) . LOO 

2 TOO (6. 6) .800(6.1) .INDEX (6. 3) .ARl (A2) .AR2(A2) .ATI ii»2) .AT2(A2).  LOD 

2 VO(25) .SBKO(27) .EOOY(27) .RGB(27) .PRERE(8.14) .PREIM'S.IA) , LOD 

2 FZRSG(25) .8VRSG(25) .RVISG(2S) .FZ1SG(25) .FYRS6(25) .FYISG(25) . LOO 

2 TMRSG(2S) ,TMISG(25) .BLRSG(25) .BLISG(25) ,RHMD(50) ,WE (30) .ZN(30)  . LOD 

2 XL1LHO(30) .IHMO(50) .WAVAMP(30).OUH4,(76)  LOD 

COMMON  /THPl/  FACT.JJ.OMl (5) .LL.GXl  LOO 

COMMON  /THP3/  RLO(5.30.25) .AILO(5.30,25) .STATN(24)  LOD 

LOD 

THE  AOOEO-HASS  AND  DAMPING  FOR  EACH  SECTIONLOO 
BENDING  AND  TORSIONAL  MOMENTS  ARE  DETERMINELOD 


AFTER  FIRST  CALCU<  ATING 
THE  SHEARING  FORCES  AND 


2 

3 

k 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 
29 


LOO 

30 

DO  16  K*1.N0S 

LOO 

31 

0IP*ST (K)-TPST 

LOO 

32 

DO  54  1*1. NON 

LOD 

33 

FR(I,1)«EN1 (K,I) 

LOD 

34 

FR(I,2)»-SNE(K,I) 

LOD 

35 

FR(I.3)»CSE(K,1) 

LOD 

36 

fr(i,4)»xx(k,I)»csE(k.i)-yy(k.i)«fr(I.2) 

LOO 

37 

FR(I,5)»-OIP»FR(l,3) 

LOD 

38 

FR(I,6)«0IP»FR(I .2) 

LOD 

39 

54  CONTINUE 

LOD 

40 

DO  55  LK-1,10 

LOD 

41 

GO  10(613,613.613.613.613.613.614.615,616,617)  ,LK 

LOD 

42 

613  CONTINUE 

LOD 

43 

L«LK 

LOD 

44 

M«LK 

LOO 

45 

GO  TO  618 

LOO 

46 

614  CONTINUE 

LOO 

47 

L"f5 

LOO 

48 

M«3 

LOO 

49 

GO  TO  610 

LOD 

50 

615  CONTINUE 

LOO 

51 

L»2 

LOD 

52 

H>6 

LOO 

53 

GO  TO  618 

LOO 

54 

616  CONTINUE 

LOO 

55 

L»2 

LOO 

56 

M«4 

LOO 

57 

GO  TO  618 

LOO 

58 

617  continue 

LOO 

59 

L-6 

LOO 

60 

M»4 

LOO 

61 

618  CONTINUE 

LOO 

62 

DAOS(LK,K)»0.0 

LOD 

63 

OOOS(LK,K)aO.O 

LOO 

64 

DO  619  J-l.NON 

LOO 

65 

DAOS(LK,K)»OAOS(LK,K) ♦OEL(K,J)»FR(J,L)*PAA(K,J,M) 

LOD 

66 

DDOS (LK,K) =ODOS (LK.K) *OEL (K. J) *FR( J.L) »PAV (K, J,M) 

LOO 

67 

98 


\ 


619 

continue 

LOO 

68 

DA0S(LK.K)«2.0»0A0S(LK,K)»0S(K) 

LOO 

69 

ODDStLK,K)-2.0«DOOSlLK,K)*OS(K) 

LOO 

78 

55 

continue 

LOO 

71 

DO  620  L>1.10 

LOO 

72 

0A05(L.K)-0A0S(L.K)/TV0L/UN 

LOO 

73 

ODDS  <L  .K) -ODDS (L .K) /TVOl./SQRT (UN) •SORT (2, ) 

LOO 

7* 

620 

CONTINUE 

LOD 

75 

DO  621  L«4,10 

LOD 

76 

DAOS (L. K) -DAOS (L.K) •0.5*0. 5 

LOO 

77 

OOOS(L.K)«OODS(L.K)*0.5*0.5 

LOD 

78 

621 

CONTINUE 

LOD 

79 

00  622  L«7.9 

LOO 

80 

0A0S(L.K)«0A0S(L.K)*2. 

LOO 

81 

DD0StL.K)»000S(U.K)*2. 

LOD 

62 

622 

continue 

LOO 

83 

16 

CONTINUE 

LOD 

84 

c 

LOO 

85 

c 

THE  possibility  THAT  THERE  MAY  BE  MASS  FORWARD  OF  THE  F.P.  IS  NOW 

LOO 

86 

c 

ACCOUNTED  FOR. 

LOD 

87 

c 

LOD 

88 

N0S1*N0S*1 

LOD 

89 

0A{2.2)*PMAS(N0S1)/TMAS*(-GXI**2) 

LOD 

90 

DA (2 .'•) =-ZMAS (NOSl ) /ELL*PMAS (NOSl) /TMAS*(-Gx!**2) 

LOD 

91 

0A(2.6)*XHAS<N0S1)»0A(2,2)/ELL 

LOD 

92 

0A(3,3)=0A(2»2) 

LOD 

93 

0A(3.5)=-DA(2,6) 

LOO 

94 

0A(A,2)>0A(2«A) 

LOO 

95 

Z02»ZHAS(N0S1)»»2 

LOD 

96 

OA(A,A)=PMAS(NOSl)/TMAS*(202»RRG(NOSl)**2)/ELL/ELL*(-GXl**2) 

LOD 

97 

0A(<,.6)^XMAS(N0S1I/ELL»0A(4,2) 

LOD 

98 

0A(6.2)»DA(2.6) 

LOD 

99 

0A(6.A)=0A(A,6) 

LOD 

100 

0A(6.6)*(PMAS(N0Sn/TMAS*(XMAS(N0Sl)/ELU**2)*(-6Xl**2) 

LOO 

101 

0A(6.6)=0A(6.6) »PmaS (NOSl )/TMAS«(YMAS (NOSl )/ELU**2*(-GX1**2) 

LOD 

102 

0A(5.3)=0A(3,5) 

LOO 

103 

OA(5.5)=PhaS(NOS1)/TMAS*(Z02*XMAS(NOS1)**2)/ELL/ELL*(-GXI**2) 

LOO 

104 

FYR=-0A(2i21  ‘BEVd ,l)-OA(2«A)*BEV(2tl)-OA(2.6)*0EV(3»l) 

LOD 

105 

Fy1=-0A(2.2) *BEV(A«1 )-OA(2«A)«0EV(5fl)-OA(2f6)*BEV(6.1) 

LOO 

106 

rZRr-0A(3.3) •B00(2« 1)-0A(3#5)*B0D(3«1) 

LOO 

107 

F Z I =-0 A ( 3 . 3 ) *R00 ( S . 1) -0 A ( 3 ♦ 5 ) *B00 (6.1) 

LOD 

108 

9LR=-DA(6.?)»0EV(1.1)-OA(6.A)*BEV(2.1)-OA(6.6)*BEV(3.1) 

LOO 

109 

8LI=-0A(6.2I *REV(A,1 )-OA(6.A)»BEV(5.I)-OA(6.6)»0EV(6.1) 

LOD 

110 

0A(5. n=(ZHAS(N0Sl)/ELL»PHAS(N0Sl)/TMAS)*(-GXl**2) 

LOO 

111 

RVR=-0A(5.3)»B00(2.1)-0A(5.5)*800(3.1)-0A(5.1)*B0D(1.1) 

LOO 

112 

RVl=-OA(5.3)»BOO(5.1)-OA(5.5)»BOO(6.1)-OA(5.1)*BOD(A.l) 

LOD 

113 

THR=-0A(A,2)«BEV(1. II-OA(A,a)*0EV(2.1)-DA(4,6)»BEV(3.1) 

LOD 

114 

TMI=-0A(A.2I *BEV(A, n-0A(A,A)*BEV(5.1)-0A(A,6)»BEV(6.1) 

LOD 

115 

N0SM1=N0S-1 

LOD 

116 

N0S2=N0S*2 

LOD 

117 

00  53  Kal.NOSHl 

LOO 

118 

PRF33=SRF33(K) 

LOD 

119 

PRH35=SRH35(K) 

LOD 

120 

PRM55=SRM55(K) 

LOD 

121 

PCAA=SCAA (K) 

LOD 

122 

0A(2.2)= (DA0S(2.K) ♦PMA5(K)/TMAS)»(-GXI**2) 

LOO 

123 

0B(2.2)=00DS(2.K)*GXI 

LOD 

124 

DA(2.A)=(-ZHAS(K)/ELL»PMAS(K)/THAS*0A0S(9.K) )*(-GXl**2) 

LOD 

125 

0B(2.A)=000S(9.K)»GXI 

LOO 

126 

DA(2.6)=(0ADS(8.K) ♦XMAS{K)/ELL*PMAS(K)/TMAS-FN(JJ)/GXI**2*0DD5(2 

.KLOO 

127 

1))»(-GXI«*2) 

LOO 

128 

0B(2.6)=:  (000S(8.K)  .FN ( JJ)  *0X05  ( 2 .K)  ) *GX1 

LOD 

129 

0A(3.3)=(0A0S(3.K) .PMAS(K) /THAS) * (-GX1 «*2) 

LOD 

130 

0B(3.3)=00DS(3.K)*GXI 

LOD 

131 

0A(3.5)« (0A0S(7.K)-XMAS(K)/ELL*PMAS(K)/TMAS*rN(JJ)/GXI*»2*n00S(3 

.KLOD 

132 

1) )«(-GXI«»2) 

LOD 

133 

99 


1 


DB(3tS)>(000S(7«K)-FN(Jj)«0A0S(3»K) }«GXI  LOO 

DA(4,2)»(-ZHAS(K)/ELL*PHAS(K)/TKAS*0AD5(9.K) )»(-GXl»*2)  LOO 

08(4,2)»00DS(9tK)»GXI  LOO 

Z02«ZMAS«K)*»2  loo 

0A«..<*)«tPMAS(K)/THAS»(Z02*RRO{K)**2J/£LL/ELL*0A0S«.,K))*(-GXI**2)L00 
OB(A,A)»OOOS(4,K>*GXI  LOO 

ob(4,4)=.o8(4,4)«vo(X)»gxi»sbkojk)»gxi  loo 

OA (4 ,6) » (-PHAS (K) /TMAS*ZHAS (Kl /ELL»XMAS (K) /ELL*OAOS ( 10 ,K) -FN ( JJ) /GLOO 
1XI**2»000S(9,K))»(-GXI«*2)  LOO 

OB(4,6)3(OOOS(10«K)  *FN(JJ)«0A0S(9.Kn*GXI  LOO 

OA(4,4)>OA(4,<») »PHAS(K)/TMAS»(-ZHAS<K)/ELL)  LOO 

0A(6.2)>(XHAS(K)/ELL»PHAS(K)/THAS*0A0S(8fK)*FN( JJ)/GXI»«2»OOOS(2.KLOO 
1) )*(-GXI»*2)  LOO 

0e(6.2)»(000S(StK)-FN(JJ)«0A0S{2.K) )«GXI  LOO 

OA (6,4) a (-PHAS (K) /TMAS»ZHAS (K) /ELL»XHAS (K) /ELL*OAOS ( 1 0 ,K) .FN ( JJ) /GLOO 
1X1**2*0005(9, K) )*(-GXI»*2)  LOO 

08 (6,4) « (0005 ( 1 0 ,K ) -FN ( JJ) *0A05 (9,K) ) *GXI  LOO 

0A(6,6)*(PHA5(K)/TNA5*(XHA5(K)/ELL)**2«DA05(6,K) .(FN(JJ)/GXl)**2*OLOO 
1A05(2»K) )*(-GXI**2)  LOO 

0A(6,6):>0A(6,6) *PHA5 {K)/THA5*{YHAS(K) /ELL )**2*(-GX 1**2)  LOO 

OB (6,6)= (0005 (6,K) » (FN (JJ) /GXI ) **2*0005 (2,K )) *GX 1 LOO 

OA (5, 1 ) = (ZHA5 (K) /ELL*PHAS (K) /THA5) * (-GXI **2)  LOO 

OA(5,3)«(OA05(7,K)-XHA5(K)/ELL*PMA5(K)/THA5-FN( JJ) /GXI**2*0D05 (3,KL00 
1))*(-GXI**2)  LOO 

08 (5,3)= (0005 ( 7, K) *FN(JJ) «0A05(3,K) ) *GX1  LOO 

0A(5,5)=(PHAS(K)/TMAS*(Z02‘XHAS(K)**2)/ELL/ELL.nAD5(S,K) . (FN(JJ)ZGLOO 
1X1)**2*0A05(3,K) )*(-GXl**2)  LOO 

0B(5,5)=(000S(5,K) .(FN(JJ) /GXI) **2*0005 (3,K) )*GX I LOO 

T0A(2.2)= (-FN( JJ) /GXI**2/0S(K) *(000S(2,K) .DD0S(2,K.l ) ) ) * (-GXl**2)  LOO 
TO0 (2,2) = (FN(JJ) /05(K)*(OAOS(2,K).OAOS(2.K*1 ) ) ) *GXl  LOO 

T0A(2,4)=( -FN(JJ)/GXI**2/05(K)* (0005(9, K).OOOS (9,K.l) ) )*(-GX 1**2)  LOO 
T08(2,4)»(FN(JJ)/05<K)*(OA05(9,K).OA05(9,K*1 ) ) )*GXl  LOO 

TOA(2,6)=(-FN(JJ)/GXl**2/05(K)*(OOO5(8,K)»OD0S(8,K.l) )-(FN(JJ)/GXlLOD 
1 )**2/D5(K)*(0A05(2,K) ♦0A05(2,K*1)))*(-GXI**2)  LOO 

T0B(2,6)= (FN( JJ)/05(K)*(0A0S(8,K) ♦0A05(8,K»1 ) ) - (FN ( JJ) /GX I ) **2/05 (LOO 
IK) * (0005(2, K) *0005(2, K.l) ) )*GX1  LOO 

T0A(4,2)»T0A(2,4)  loo 

TOB(4,2)=TO0(2.4)  LOO 

TOA (4,4) =(-FN(JJ)/GXI**2/0S(K)* (0005(4, K) *0005 (4, K.l ) ) )*(-GXl**2)  LOO 
T0B(4,4)=(FN( JJ)/05(K)*(0A0S(4,K) *0405 (4 ,K* 1 ) ) ) *GXl  LOD 

T0A(A,6)=(-FN( JJ) /GXI **2/05 (K)* (0005 (10, K) *0005 (10, K.l ) ) - (FN ( JJ) /GLOO 
1XI)**2/0S(K) • (0A0S(9,K) .0A05(9,K*1 ) ) )*(-GXI**2)  LOO 

TO0(4,6)=(FN(JJ)/OS(K)*(OAOS(1O,K)*OAOS(1O,K.1) )-(FN(JJ)/GXI)**2/0L00 
15(K) *(0n0S(9,K) .0005(9,K*1) ) )*GXI  LOO 

T0A(6,2)=(-rN(JJ)/GXl**2/0S(K)*(0005(8,K) *0005 ( 8 ,K. 1 ) ) ) • (-GX I **2)  LOO 
T0B(6,2)= (FN(JJ)/05(K)*(OAO5(8,K).OAOS(8,K*l) ) ) *GXI  LOO 

T0A(6,4)a (-FN( JJ)/GXI**2/OS(K)*(0005(10,K) *0005 ( 1 0 ,K. 1 ) ) ) * (-GXl**2L00 
1 ) LOO 

TO8(6,4)=(FN(JJ)/OS(K)*(OAOS(10,K)*OAO5(10,K*l) ) )*GXI  LOO 

TOA(6,6)x(-FN(JJ)/GXI**?/OS(K)*(0005(6,K) *0005 ( 6 ,K* 1 ) ) - (FN ( JJ) /GX ILOO 
1 )**2/0S(K) *(0A05(8,K) .0A0S(8,K*1) ) )*(-GXl**2)  LOO 

T08(6.6)»(FN(JJ)/D5(K)*(0A05(6,K).0A05(6,K*l))-(FN(JJ)/GXI)**2/n5(L00 
lK)*(0D05(8,K)*000S(8,K*n))*GXI  . 00 

TOA(3,3)*(-FN(JJ)/GXI**2/OS(K)*(O0O5(3,K)*O00S(3,K*l) ) )*(-GXl**t»  Lv.0 
T0B(3,3)=(FN(JJ)/0S(K)*(0A05(3,K) .0A0S(3,K*1 ) ) ) *GXI  LOO 

T0A(5,3)= (-FN(JJ)/GXI**?/0S(K)* (0005(7, K). 000S( 7,K*1) ) )*(-GXI**2)  LOO 
TO0(5,3)=(FN(JJ) /OS(K) *(0A0S(7,K) *0A05 ( 7 ,K* 1 ) ) ) *GXI  LOO 

TOA (3,S) «TOA (5,3) . (FN(JJ) /GX I ) **2/0S (K) * (0A05 (3 ,K) *0AD5 (3,K*1 ) ) * (-L00 
1GXI**2)  LOD 

TOB (3,5) =TDB (5,3) *(FN(JJ) /GXI )**2/05(K)* (ODDS (3,K) *DDD5(3,K*1 ) )*GXLOO 
1 I LOD 

T0A(5,5)» (-FN(JJ)/GXI**2/OS(K)*(0005(5,K)*DDDS(5,K*1 ) ) * (FN ( JJ) /GX ILOO 
1 ) **2/0S(K)*(0A0S(7,K) ♦0A0S(7,K*1 ) ) )*(-GXI**2)  LOO 

T08(5,5)»(FN(JJ)/OS(K)*(OA05(5.K)*OA05(5,K*1) ) * (FN ( JJ) /GXI ) **2/0S (LOO 
1K)*(0005(7,K) .000S(7,K.l ) ) )*GXl  LOD 

ovH=PEXR(5.K)-0A(5«n*B0D(l ,1 )-DA(5,3)*B0D(2.1)-DA(5.5)*B00(3,1)-0L0D 
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134 

135 

136 

137 

138 

139 

140 

141 
)42 

143 

144 

145 

146 

147 

148 

149 

150 

151 

152 

153 
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160 
161 
162 
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165 

166 

167 

168 

169 

170 

171 

172 
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174 

175 

176 

177 

178 

179 
160 
181 
182 
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188 

189 

190 

191 

192 

193 

194 

195 

196 

197 

198 
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L 


)-nfl(S.‘;)»B00(6,n  loo 

AIVM.PEXl  (5.M  *Ofl  (S.  3)  •HOD(2t  1 ) »Ofl(S.5l  ‘HODO.  1 )-D*  (5. 1 ) *800 (A,  1 ) -LOD 
10* (5. 3) •800(5. 1 1 -0*(5.S)>n00(ft. 1 ) LOO 

RTH»P£XP(<i,K) -OA (4.2) »BFV( 1 . 1 ) -nA(4,4) •REV(2. 1 )-0A(4.6) •PEV(3. 1 )-DLOO 
1B(4,2) •BEV(4. 1) -OB (4,A) •BEV(5, 1 ) -OB (4 .6) »8E V (6 . 1 ) LOD 

*ITM=PEXI (4.K) »0B(4.2) ‘BEVd . 1 ) »Ofl ( A .4 ) ‘BE V ( 2 . I ) .08(4,6) 'REV (3. 1 ) -LOO 
10* (4.2) ‘BE V( 4, 1 ) -04(4,4) »REV (5. 1 ) -0* (4.6) •8EV(6.1)  LOO 

PLM»PEXR(6,K) -DA (6.2) *REV( 1 . 1 ) -0* (6 .4 ) »BEV ( 2. 1 ) -0A(6.6) •0EV(3, 1 ) -OLOO 
IB (6.2) ‘BE V (4, 1 ) -0R(6.4) •REV(5. 1 ) -OB (6,6) ‘REV (6. 1 ) LOO 

AlLMiPExI (6.K) .OB (6.2) »BEV( 1 . 1 ) *0R (6,4) •BfV(2, 1 ) .0B(6,6) »REV(3. 1 ) -LOO 
IDA (6.2) ‘BE V (4, 1 ) -0* (6,4) »REV (5. 1 ) -DA (6 .6) ‘BEV (6 ♦ 1 ) LOO 

prY»PEXR(2.K)-0A(2.2)«BEV(l,l)-0*(2.4)»REV(2.1)-0A(2.6)»BEV(3,l)-0L00 
18(2.2) •BEV(4, 1 ) -0B(2.4) •REV(5. 1 ) -08(2,6) •BEV(6, 1 ) LOO 

AIFy=P£xI (?.K) .OB (2, 2) ‘REV (1 . 1 ) .OR ( 2 .4 ) ‘BEv (2. 1 ) .08 (2 .6) ‘RE V ( 3. 1 ) -LOO 
10* (2.2) *BEv (4, 1 ) -0* (2,4) •REV(5. 1 ) -0* (2.6) ‘BE V (6. 1 ) LOD 

PF2=PEXP (3.K ) -OA (1,3) •800(2.1 ) -0* ( 1 ,5 ) •BOO ( 1 . 1 ) -OB ( 3 , 3 ) •BOO ( 5 , 1 ) -OLOO 

1R(3,5)’B00(6,1)  LOD 

AIFZ*PEXI n.K) .08(3,3) *800 (2. 1 ) .OR ( 3 .5 ) •BOO ( 3. 1 ) -OA ( 3 . 3 ) •BOO (5 . 1 ) -LOO 


10*(3,5) •800(6.1 ) 
FYP=FyP.PFy 
. Yl:tFYl  .AIFY 
rZRiFZP.pFZ 
FZI=FZI.AIFZ 
RLP=eLR.PLH 
BLI=8LI ‘A1L8 

RVR=flVR.RVM 
BVUBVl  *AI  VM 
THR=IMR.RTM 
TMl=TMl*AIT^ 


LOD 

LOO 

LOO 

LOO 

LOO 

LOO 

LOO 

LOO 

LOO 

LOD 

LOO 


EVP=  (P0FR(5.m .oOFR (R,K. 1 ) ) /2,-TOA ( 5 . 3 ) •BOO ( 2 . 1 ) -TCA ( 5 . S ) •BOO ( 3, 1 LOO 
1 ) -T0B(5.3) •800(5, 1 ) -TOR (5,5) •BOO (6. 1 ) LOO 

£VI= (POFI (5,K) .PDF  I (5.x. 1 ) ) /2.‘ TOR (5. 3) •800(2, 1 ) .108(5.5) •800(3. 1 )LO0 
l-TOA(S.I) •B00(5, 1)-I04(5,5)»800(6.1 ) LOD 

ETP= (POFO(4,K) .pofP(4,K. 1 ) )/2.-T0A (4,2)^BEV(1 .1 )-T0A(4.4) •8FV(2. 1 )LO0 
1-T0A(4,6)^BEV(3. 1 )-T0R(4.?)»flFv;4,l)-T0B(4,4)^BEV(5,l)-T0B(4,6)^BEL00 
?V(6,1)  1-00 

£TI= (POFI (4,K' .POFI (4.K.1 ) )/2. .•0R(4,2)^BFV(1 ,1 ) .rOB(4,4) •BEV(2. 1 )L00 
l.T0B(4,6)»BEV(3, 1 )-T0A(4,2)«BFV.4,1 )-T0A (4 ,4) •BEv (5 . 1 ) -TOA (4 ,6) •RELOD 
2V(6,1)  LOO 

ELR=(PDFR(6,K) .P0FP(6,k.1) )/2.-t0A(6.2)^8EV(1,1)-T0A(6.4)»bEV(2.1)L00 
1-TOA(6.6)^BEV(3.1)-TOR(6,2)«0FV!4,1)-TOB(6.4)»BEV(5.1)-TOB(6.6)^BELOO 
2V(6.1)  LOO 

EL1= (POFI (6.K) .POFI (6.K.1 ) ) /2 . » TOR ( 6 , 2) •BEVd . 1 ) . TOR (6 . 4 ! •BE V ( 2 , 1 ) LOO 
1 .TOB (6.6) •REV (3,1 ) - TOA (6 , 2 ) •BEV (4 , 1 ) -TOA (6 ,4 ) ‘BEV (5 , 1 ) -TOA (6.6) •BELOO 
?V(6,1)  LOO 

EyP=(P0FP(2,K) ♦P0FP(2,K.l) )/2,-TOA(2,2)^BEV(l,l)-TD*(2.4)»BEV(2.1)LOO 
1-TOA(2,6)^0EV(3.1 )-T0R(2.?)^BEV(4,l )-TOB(2,4)^BEV(5.1)-TOP(?.6)^BELOO 


2V(6, 1 ) 


LOO 


EYlr(POFI (2,K).P0FI (2.K.1))/2..T0B(2.2)^BEV(1.1).T0R(2,4)»BEV(2,1)L00 
1 .TD0 (2.6)^REV(3.1)-T04(2,2)^BEV(4,1)-T0A(2.4) »BEV (5. 1 ) -TOA (2 . 6 ) •BELOO 
?V(6,1)  LOO 

EZR=(P0FP(3,K) ,P0FR(3,K.l ) )/2.-T0A(3.3)^BOO(2,l)-I0*(3,5)^800(3.1 )LOD 
1 -TOB (3, 3) •000(5. 1 ) -TOR (3,5) •800(6. 1 ) LOO 

EZI= (PDF  I ( 3 ,K ) .PDF  I (3.K.1) )/2,.TOR(3.3) •800(2.1 ) .TOR (3.5) •BOO (3. 1 ) LOO 
1 -TOA ( 3, 3 ) •BOO (5. 1 ) -TOA (3, 5) •BOD (6.1) 

FYRS=FYR.£YR 

fyis»fyi.eyi 

FZRS=FZR.EZR-PPF33^B00(2. 1 ) -PRM35^B00 ( 3, 1 ) 

FZIS=FZI»EZI-PRF33^B00(5, 1 )-PPM35^R00(6,l ) 

TMRS=TMP.£TR 
THIS=TMI.£TI 
TMRS=rMRS-PC44»RFV(2. 1 ) 

TMIS=TMIS-PC44»8EV (5, 1 ) 

RLR5=BLP.FLR-(ST(K)-TosT.0.S^OS(K) l^O.S^FYPS 
BL1S=BLI.ELI-(5T (K)-rPST.O,5^05(K) )^0.5^FY15 
RVRS=BVR.EVR. (SIOd-TPBT.O.R^OPlK) )^0.5^FZR5 


LOO 

LOO 

LOO 

LOD 

LOO 

LOD 

LOO 

LOO 

LOO 

LOO 

LOO 

LOO 
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o o r> 


BVISa8VI*EVI*tST<K)-TPST*0.5«OS(K})*0.5*FZlS  LOO 

B VRS«B VRS-PRM35*B00 ( 2 . 1 ) -PRM55*SOO  Os!)  LOO 

8VIS-BVIS-PRM35*B00 (5.1) -PHM55«B00 (6.1 ) LOO 

fac»tvol/8.*ell/beam  loo 

FYRS»FYRS*FAC  LOO 

FYIS-FYIS*FAC  LOD 

FZRS«FZRS*FAC  LOO 

FZIS«FZIS*FAC  LOO 

TMRS»TMRS*FAC  LOO 

THIS«TMIS*FAC  LCO 

blrs«blrs*fac  loo 

BLIS»BLIS*FAC  LOO 

BVRS«BVRS*FAC  LOO 

8VIS»8VIS*FAC  LOO 

FYRS6(K)«FYRS  LOD 

FYISG(K)»FYIS  LOD 

TMRSG(K)«TMRS  LOD 

TMISG(K)«TMIS  LOO 

8LRSG(K)»BLRS  LOD 

BLISG(K)»8L1S  LOD 

FZRSG(K)-FZRS  LOO 

FZISG(K;=.FZIS  LOD 

BVRSG(K)aBVRS  LOD 

BVISG(K)»BVIS  LOO 

RLO  (1 .LL.K)  ■ FYRS  LOO 

AILO(I.LL.K)  « FyIS  LOO 

RLO  (2. LL.K)  - FZRS  LOO 

AIL0(2,LL.K)  ■ FZIS  LOO 

RLO  (3. LL.K)  -THRS  LOO 

ftILOn.LL.K)  -THIS  LOD 

RLO  (<*.LL.K)  »BVRS  LOO 

AILO(A.LL.K)  »BV1S  LOO 

RLO  (5. LL.K)  »8LRS  LOD 

AILO(S.LL.K)  -bus  LOD 

STATN(K)  = STl(K.l)  ♦ O.S»OS(K.1)*10.  LOD 

S3  continue  LOD 

RETURN  LOO 

END  LOO 

EFH 

VERSION  4 - COC  6700  - E X C F H - JUNE.  1972 EFH 

EFH 

SUBROUTINE  EXCFH  EFM 

COMMON  DM  I (1496)  .FN(5)  .BAMOO)  .DM3  (23)  .N0K.DM4  ( 1 1 37 ) . T I TO  ( 1 2)  . EFM 
2 0M5(16) .PRNT0P.0M6(356)  EFM 

INTEGER  PRNTOP.H  . EFM 

COMMON  /TFMP/  DM? (4784) .ZN(30) .0M8( 106)  EFM 

COMMON  /TMPl/  FACT.JJ.HOIOI .VKN0TS.0M9(5)  EFM 

COMMON  /THP5/  B0V(30.6.2)  EFm 

DATA  MIN  /3HMIN/  EFM 

BACKSPACE  1 EFM 

CALL  SEPART  (1)  EFH 

L « 0 EFM 

N 3 1 EFM 

IF  (BAM(l)  .LE.  BAM(NOK))  L » NOK  . 1 EFM 

IF  (BAM(l)  ,LE.  8AM(N0K))  N « - 1 EFM 

DO  5614  JH-1,2  EFM 

IF  (JH  .EO.  1)  H ■ 1 EFM 

IF  (JH  .EO.  ?)  H - 6 EFM 

IF  (H  .EO.  6 .ANO.  RRNTOP  .EO.  MIN)  GO  TO  5614  EFM 

WRITC  (H,560fl)  I ITO.HOIGI.VKNOTS.FN(JJ)  EFM 

5608  FORMAT (41H1  EXCITING  FORCES  AND  MOMENTS  . 1 2A6 . 1 5X . 3H»»*EFM 

2///17X.RHHFAOING  -.F5.0.4H  DEG. 7X . 1 2HSHI P SPEED  -.F6.2.6H  KNOTS/  EFM 
2 18X.15H(HEA0  SEAS"180) .9X.15HFR0U0E  NUMBER  -.F7.4)  EFM 

C PRINT  EXCITING  FORCES  ANO  MOMENTS EFM 

WRITE  (H.5610)  EFM 

5610  FORMAT  (//ATX.SSHNONOIMENSIONAL  TRANSFER  FUNCTIONS//  EFM 
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5600 

5604 

56U 

5612 

5614 


16X,13HSUR0E  rORCt  /.SXflZHSWAr  rORCC  /.7X,13HH€AVe  FORCE  /t7X, 
13HR0LU  MOKENT  /.6Xtl4HPITCH  MOHENT  /tSX.lZHYAW  MOHCNT  /t/7Xt 
3(13Xt7HH»G*R/L) ,3(13X,5HM*0«R,2X) t/5X,6HliClNO) t 
6(20H  AKPL.  RATIO  PHASE ) /1 1 X .6 ( 16X,4MDC(1  )/) 

K - L 

DO  5612  LL-l.NOK 
K ■ K • N 

IF  (JH  .EO.  2)  00  TO  5604 

-COMPUTE  AMPLITUDE  AND  PHASE 

00  5600  I-l .6 
RL  » B0V(K,I,n 
A I > B0v(K.I,2l 

BOVlK.I.n  • SQRT(RL«*2  ♦ Al««2) 

BDV(K,1.?1  ■ ATAN20(A1 ,RL) 

CONTINUE 

WRITE  (H,56n>  ZNIK)  . ( (BOV  (K.I  «J)  . J*1 12) 

FORMAT  (4X.F7,3.6(1PE13.4.0PF7.1) ) 

CONTINUE 
CONTINUE 
call  SEPART  (2) 

RETURN 
ENO 


>1 16) 


-VERSION  4 


COC  6700  - MOTOUT  - JUNE.  1972- 


(X2).  HEAVE  (X2).  ROLL  (X4), 


/ 


ANOLES  8Y- 

WVLNTH 


10 


SUBROUTINE  “OTOUT 

•MOTION  OuTPmT  SUBROUTINE' 

•MOTIONS  APE  SURGE  (XI),  SWAY 

•PITCH  (X5).  YAW  (X6) — 

INTEGER  PRNTOP.M 

COMMON  OMl (SI ) .ELL .OM2( 1414) ,FN(5) ,8AM (30) ,0M3 (23) ,N0K,DM4 (1137) 
! TITOd?)  .WORO.OMSdS)  ,PRNT0P,DM6,344)  ,1NWSTP(12) 

COMMON  /TE“P/  0W7 ( 300) ,RMO(6.30) ,A1MO(6.30) .0M8 (4094) ,WE (30) , 

! ZN(30)  .XL1LMO(30) ,0M9(50) ,WAVAMP(30) ,OMO(76) 

COMMON  /T“P1/  FACT.JJ.HOIGl .VKNOTS.WSLOPE.WSTP. IWSTP,0MA(2) 
COMMON  /TMP?/  SHM(30.6.2) 

DATA  MIN  /3HMIN/ 

00  10  I-l.NOK 
WVLNT«  » RaM(1)«ELL 

•TERMl  SCALES  NONOIMENSIONAL  DISPLACEMENTS  BY- 
WAVAMP 
> wAVAMP ( 1 1 

scales  NONOIMENSIONAL 
WAVAMP  • 57.3 
■ lERMl •EACT/WVLNTH 
J»1  .6 

•COMPUTE  SINGLE  AMPLITUDES 

TERM  3 TERMl 

IF  (J  .GT.  3)  TERM  - TERM2 
SHMd.J.l)  - TERM»SORT  (RMO(  J.  I ) ••2 

•COMPUTE  phases 

SHMd.J.2)  » ATAN?0(  AIMOU.  1 ) ,RMO(  J»I  ) ) 

CONTINUE 
L « 0 
N 3 1 
IF  (BAMd) 

IF  (BAM(l) 

BACKSPACE 
CALL  SFPART  (1) 

00  35  JH»1 ,2 
IF  (JH  .EQ.  1)  H 
IF  (JH  .EO.  2)  H 

IF  (H  .EO.  6 .AND.  PRNTOP  .EQ.  MIN)  GO  TO  35 
WRITE  (H.IOOO)  TITO.HOIGI.VKNOTS.WSLOPE.FNUJ)  .INWSTPdWSTP) 

•PRINT  SINGLE  AMPLITUDES 

WRITE  (H.lOlO)  (WORD, I-l, 4) 


TERMl 

-TERM2 

TERM2 
DO  10 


AIMOU, I)»»2) 


.LE. 

.L£. 

1 


BAM (NOK) ) 
BAM (NOK) ) 


1 

6 

PRNTOP 


- NOK 

- - 1 


1 


EFM 

30 

EFM 

31 

EFM 

32 

CFM 

33 

EFM 

34 

EFM 

35 

EFM 

36 

EFM 

37 

•EFM 

38 

EFM 

39 

EFM 

40 

EFM 

41 

EFM 

42 

EFM 

43 

EFM 

44 

EFM 

45 

EFM 

46 

EFH 

47 

EFM 

48 

EFM 

49 

EFM 

50 

EFM 

51 

MTO 

2 

•MTO 

3 

MTO 

4 

MTO 

5 

-MTO 

6 

■MTO 

7 

■MTO 

a 

MTO 

9 

MTO 

10 

MTO 

11 

MTO 

12 

MTO 

13 

MTO 

14 

MTO 

IS 

MTO 

16 

MTO 

17 

MTO 

18 

MTO 

19 

MTO 

20 

MTO 

21 

MTO 

22 

MTO 

23 

MTO 

24 

MTO 

25 

-MTO 

26 

MTO 

27 

MTO 

28 

MTO 

29 

-MTO 

30 

MTO 

31 

MTO 

32 

MTO 

33 

MTO 

34 

MTO 

35 

MTO 

36 

MTO 

37 

MTO 

38 

MTO 

39 

MTO 

40 

MTO 

41 

MTO 

42 

MTO 

43 

-MTO 

44 

MTO 

45 
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K - L MTO 

DO  15  LL«l,NOK  MTO 

K ■ K * N MTO 

WRITE  (H,10?0)  WE(K>.XL1LM0(K).BAM(K),2N(K).WAVAMP(K)«  MTO 

2(SHM(K«I,1) ,1-1,6)  MTO 

15  CONTINUE  MTO 

IF  (H  .EO.  61  60  TO  35  MTO 

WRITE  (1,1030)  MTO 

K ■ L MTO 

00  30  LL-l.NOK  MTO 

K - K « N MTO 

WRITE  (1,1040)  WE(K),(SHM(K,I,2),I-1,6)  MTO 

30  CONTINUE  MTO 

35  CONTINUE  MTO 

CALL  SEPART  (2)  MTO 

IF  (PRNTOP  .EO.  MIN)  60  TO  80  MTO 

C PRINT  RESPONSE  AMPLITUOE  OPERATORS MTO 

WRITE  (6,1050)  MTO 

K » L MTO 

00  50  LL*1 ,NOK  MTO 

K - K ♦ N MTO 

00  40  1=1,6  MTO 

SHM(K,1,1)  - SHM(K,I,1)/WAVAMP(K)  MTO 

40  SHM(K,I,1)  » SHM(K,I,1)»«2  MTO 

WRITE  (6,1060)  WE(K),((SHM(K,I,J),J-1,2),I-1,6)  MTO 

50  continue  MTO 

C PRINT  NONOImENSIONAL  TRANSFER  FUNCTIONS MTO 

WRITE  (6.1070)  MTO 

K » L MTO 

WSCON  = ELL/360.  MTO 

00  70  LL=1 ,N0K  MTO 

K = K ♦ N MTO 

00  60  1=1,6  MTO 

5HM(K.I,1)  = SORT (SHM(K, 1,1) ) MTO 

IF  (1  .OT.  3)  SHM(K,1,1)  = WSC0N»SHM(K,I,1)/XL1LH0(K)  MTO 

60  CONTINUE  MTO 

WRITE  (6,1060)  XL1LM0(K),((SHM(K,I.J),J-1,2),I-1,6)  MTO 

70  CONTINUE  MTO 

80  continue  MTO 

RETURN  MTO 


1000  FORMAT (41H1SHIP  MOTIONS  IN  RE6ULAR  WAVES  •••  , 1 2A6 , 1 5X ,3H*»*MTO 

2///17X. “HEADING  «»,F5.0.»  OEO«,7X,»SHIP  SPEED  -“.EG. 2,*  KNOTS*, 5X, MTO 
2»WAVE  SLOPE  (360». 1H«,»R/LAMB0A) , K*,1H*,*R,  -*.F5.2,*  0E6»/18X,  MTO 
2*(HEAO  SEAS-180) *,9X.*FR0U0E  NUMBER  -• ,F7 .4 , 7x , “WAVE  STEEPNESS  (2*MT0 


21H»,»R/LAMR0A)  = 1 /*I3)  MTO 

1010  F0RMAT(//58X,17HSINGLE  AMPLITUDES,  MTO 

2//6X.*  WE  L/LAM  LAM/L  WE(ND)  * MTO 

2 -WAVE  AMPL.(R)  SURGE(Xl)  SWAY(X2)  HEAVE(X3)*  MTO 

2 * ROLL(X4)  PITCH(XS)  yAW(X6)»,  MTO 

2 /7X,3HRPS,18X,4(7X,A6),10X,3H0E0,9X,3HDEG,11X,3H0E6/)  MTO 

1020  F0RMAT(5X,2F6.3,F6.2,F7.3.2X,1P7E13.4)  MTO 

1030  FORMAT  (//6X.*WE  FS*,24X,*PHASES  IN  DEGREES*//)  MTO 

1040  FORMAT  (4X,F7.3,6F10.3)  MTO 

1050  FORMAT  (//50X. “RESPONSE  AMPLITUOE  OPERATORS*//  MTO 

2 15X,14H(SURGE  / R)**2.7X,13H(SWAY  / R ) **2 ,6X , 1 4H (HEAVE  / R)**2,  MTO 
2 7X,13H(R0LL  / R)“*2,6X,14H(PITCH  / R ) *“2 , 7X , 1 2H ( YAW  / R)**2/  MTO 
26X.“  WE  “,  MTO 

26(20H  AMPL.  RATIO  PHASE) /7X.4HRPS  ,6(20H  SQUARED  OEG  )/)  MTO 
1060  FORMAT(4X,F7.3,6(1PE13.4,OPF7.1) ) MTO 

1070  FORMAT  (//47X,“N0N0IMENSI0NAL  TRANSFER  FUNCTIONS*//  MTO 

2 17X,9HSURGE  / R.12X,8HSWAY  / R,11X,9HHEAVE  / R.llX,  MTO 

2 lOHROLL  / K*R,10X,11HPITCH  / K*R, 1 OX , 9HY AW  / K*R,  MTO 

2 /6X,*L/LAM*,6(20H  AMPL.  RATIO  PHASE )/ 1 1 X,6 ( 1 6X ,4HOEG  )/)  MTO 

END  MTO 

LOO 

-VERSION  4 - CDC  6700  - LOOOUT  - JUNE,  1972 LOO 
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c LDO 

subroutine  LOOOUT  (ISTAT)  ldo 

-LOAD  OUTPUT  SUBROUTINE LOO 

-LOADS  ARE  HORIZONTAL  SHEAR  EORCE  (V2) ♦ VERTICAL  SHEAR  FORCE  (VI). -LOO 

-torsional  moment  (V4),  vertical  bending  moment  (V5).  HORIZONTAL LDO 

-BENDING  MOMENT  (V6) LOO 

integer  prntop.h  loo 

COMMON  OMl (80) .EL.ELL.0M?(S10) . TMAS.0M3 ( 12) . T VOL .DMA (890 ) .rN(S) . LOO 
2 0 AM  (30)  .OMS(23)  .NOK.OM^nn?)  .TITO  (12)  .vORD.OmT  ( 15)  .PRNTOP.  LOO 

2 0M8(S'.) .flEAM.0M9(8) .GRAV,OM90(280) .INWSTP(12)  LOO 

COMMON  /TfMP/  OMO(47SA) ,wE(30) .ZN(30) .XL1LMO(30) .Dma(50) . LOO 

2 WAVAMP(IO)  .0MP(76)  LOO 

COMMON  /TMPl/  fact  , JJ.HOIOl .VKN0TS.W5L0PE.V5TP, IWSTP.OMC(2)  LOO 

COMMON  /TMP2/  SLO(30,6.2)  LOO 

common  /TMP3/  RL015.30.25) ,AILO(5.30,25) »STATN(2A)  LOO 

COMMON  /LOOPRN/  OM10(29) ,¥0902. V0fi03,OMll (263)  LOO 

DATA  MIN  /3HMIN/  LOO 

K « ISTAT  LOO 

C RO  EQUALS  SHIP  mass  divided  0Y  DISPLACED  VOLUME LOO 

RO  - TMAS/(TV0L»£L«»3)  loo 

CON  » po»grav»beam«ell  loo 

00  10  I*l.NOK  LDO 

c TERMI  scales  NONOIMENSIONAL  FORCES  BY-  LDO 

C RO  • GRAV  • BEAM  • ell  • VAVAMP  LDO 

TERM!  • WAVAMP ( I ) »CON  LOO 

c term?  scales  NONOIMENSIONAL  MOMENTS  By-  LOO 

c RO  • GRAV  • BEAM  • ELL  • ELL  • VAVAMP  LOO 

TEPM2  » TERMl»ELL  LOO 

00  10  J»l.S  LDO 

C COMPUTE  single  amplitudes  FOR  A PARTICULAR  STATION LDO 

term  = TEOMl  LOO 

IF  (J  ,GI.  2)  TERM  • TERM2  LOO 

SL0(1,3.1)  • TERM«S0RT(RL0(J.I,K)*»2  ♦ A ILO ( J, I ,K ) »*2 ) LDO 

c COMPUTE  Phases loo 

SL0(I.J.2)  « ATAN20(A1l0(J,I.K) .RLO(J.I.K))  LDO 

10  continue  loo 

L • 0 , LDO 

N « 1 LDO 

IF  (BAM(l)  ,LE.  BAM(NOK))  I • NOK  ♦ 1 LOO 

IF  (BAM(l)  ,LE.  BAM(NOK))  N • - 1 LOO 

BACKSPACE  1 LDO 

CALL  SEPART  (I)  ldo 

00  35  JH-1,2  LOO 

IF  (JH  .EQ.  1)  H - I LOO 

IF  (JH  ,EQ.  2)  H - 6 LDO 

IF  (H  ,EQ.  6 .AND.  PRNTOP  .EQ.  MIN)  GO  TO  35  LDO 

WRITE  (H.IOOO)  TIT0,M0I01,VKN0TS.WSL0PE.FNUJ),INWSTP(IWSTP)  LDO 

C PRINT  single  amplitudes  — LDO 

WRITE  (H.lOlO)  STATN(ISTAT). WORD. (W0R02.I-1. 2). (W0R03. 1-1,3)  LDO 

K ■ L LDO 

DO  15  LL-l.NOK  LOO 

K ■ K ♦ N LOO 

WRITE  (H.1020)  WE(K) .XLILMO(K) ,BAM(K) ,ZN(K) .WAVAMP(K) , LOO 

2 (SLO(K,  1 , 1 ) , I-l  .5)  LDO 

15  CONTINUE  LOO 

IF  (H  .EQ.  6)  GO  TO  35  LDO 

WRITE  (1.1030)  LDO 

K - L LDO 

DO  30  LL-l.NOK  LDO 

K - K . N LOO 

WRITE  (I.IOAO)  WE(K) ,(5LD(K,I,2),I-1,5)  LOO 

30  CONTINUE  LDO 

35  CONTINUE  LDO 

CALL  SEPART  (2)  LOO 

IF  (PRNTOP  .EQ.  MIN)  GO  TO  80  LDO 

C PRINT  RESPONSE  AMPLITUDE  OPERATORS LOO 
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WRITE  (6,1050)  LDO 

■ L LDO 

00  50  LL-l.NOK  LOO 

K ■ K ♦ N LOO 

00  40  I»l,5  LOO 

SL0(K,I,1)  • 5L0(K,I,1)/WAVAMP(K)  LOO 

40  SLOlK.I.l)  - SL0(K,I,1 J»»2  LDO 

WRITE  (6,1060)  WEOO,((SLO(K,I,J),J*1,2),I»1,5)  LOO 

50  CONTINUE  LOO 

C PRINT  NONOIMENSIONAL  TRANSFER  FUNCTIONS LOO 

WRITE  (6,1070)  LOO 

K • L LOO 

DO  70  LL»1,N0K  LOO 

K ■ K ♦ N LDO 

DO  60  1-1,5  LOO 

5LD(K,1,1)  - SQRT(SLO(K,l,l) )/CON  LOO 

IF  (I  .GT.  2)  SL0(K,I,1)  « SLO (K, I , 1 ) /ELL  LOO 

60  CONTINUE  LOO 

WRITE  (6,1060)  XLILMO(K) , ( (SL0(K,I,J) ,J»1 ,2) ,I»1,5)  LOO 

70  CONTINUE  LOO 

80  CONTINUE  LOO 

RETURN  .00 

1000  rORMAT(41Hl  SEA  LOADS  IN  REGULAR  WAVES  •••  , I 2A6 , 1 5X , .00 

2///17X, ‘HEADING  -*,F5.0,‘  0E0*,7X,‘SHIP  SPEED  -•,F6.2,*  KNOTS*, 5X.  .00 
2‘WAVE  SLOPE  (3604,1H‘,‘R/LAM80A) , K‘,1H‘,‘R,  -*,F5.2,*  0EG‘/18X,  .00 

2‘(HEA0  SEAS-180)*,9X,*FROUOE  NUMBER  •« ,F7.4 ,7X , ‘WAVE  STEEPNESS  (2‘LDO 
21H‘,‘R/LAH0OA)  - 1 /‘I3)  LOO 

1010  F0RMAT(//49X, ‘SINGLE  amplitudes  (STATION*, F6. 2, 1H) , LDO 

2//6X,*  WE  L/LAM  LAM/L  WE(NO)  * LOO 

2 ‘WAVE  AMPL.(R)  H.SHEAR(V2)  V.SHEAR(V3)  T.H0H.(V4)‘  LOO 

2*  V. MOM. (VS)  H.M0M.(V6)‘/7X.3HRPS,25X,A6,2(7X,A6) ,4X,  LOO 

2 3(3X,A8,2X)/)  LOO 

1020  F0RMAT(5x,2F6.3,F6.2,F7.3,2X.1P7E13.4)  LOO 

1030  FORMAT  (//6X,‘WE  FS* ,24X , ‘OHASES  IN  DEGREES*//)  LOO 

1040  format  (4X,F7.3,6F10.3)  LDO 

1050  format (//SOX, 28HRESP0NSE  AMPLITUDE  OPERATORS//  LDO 

214X,‘(H. SHEAR  / R)‘,2H“,*2  (V. SHEAR  / R)‘,2H“,*2  (T. MOM. ‘LOO 

2*  / R)‘,2H“,*2  (V.HOM.  / R)‘,2H“,*2  (H.MOM,  / R)‘,3H“2/LOO 
26X,‘  WE  *,  LDO 

25(20H  AMPL.  ratio  PHASE) /7X,4HRPS  ,5(20H  SQUARED  DEG  )/)  LDO 
1060  F0RMAT(4X,F7.3.6(1PE13.4,0PF7.1))  LOO 

1070  FORMAT (//47X,33HNONOIMENSIONAL  TRANSFER  FUNCTIONS//  LOO 

214X,‘H. SHEAR  / V. shear  / T.MOM.  / • LOO 

2*  V.MOH.  / H.MOM.  /‘/15X,2(2X,10HRO‘G‘B‘L‘R,8X) , LOO 

23 ( 12HR0‘G‘B*L‘L‘R,8X) /6X,‘L/LAH*  LDO 

25(20H  AMPL.  RATIO  PHASE) /I 1X,5 ( 16X ,4H0EG  )/)  LOO 

END  LDO 

RCT 

—VERSION  4 - COC  6700  - RCTABL  - JUNE,  1972  RCT 

RCT 

SUBROUTINE  RCTABL  RCT 

COMMON  OMl (81) ,ELL,0M2(1414) ,FN(5) ,BAM(30) ,DM3(24) ,NOB,NOH,  RCT 

2 0M4 (1150) ,H0G1 (10) ,0M5(67) ,GRAV,DM6(229) ,THMD(50) ,NWSTP,  RCT 

2 INWSTP(12)  RCT 

COMMON  /temp/  0M7(4844) ,IHMO(50) ,DM8(106)  RCT 

COMMON  /TMPl/  FACT,0MP(8)  RCT 

COMMON  /TMP4/  HMO (5 ,S0 ,2) ,NHF ,EPS  RCT 

WRITE  (6,5500)  RCT 

5500  FORMAT  ( 1 HI , 1 8X , 32HR0LL  AMPLITUDE  CONVERGENCE  TABLE)  RCT 

KTH  « 0 RCT 

00  5340  I-1,N0H  RCT 

HOIGl  » HOGl (I)  RCT 

DO  5340  J-1,N0B  RCT 

VKNOTS  - S0RT(ELL‘GRAV)‘FN(J)/1.689  RCT 

DO  5340  N-1,NWSTP  RCT 

KTH  « KTH  ♦ 1 RCT 
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116 
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n r»  n r>  o r> 


WSTP  • I ./FLOAT ( INWSTP(N) ) rCT 

WSLOPE  - 180.»WSTP  BCT 

WRITE  (6.5503)  HOIGl .VKNOTS.FN ( J) .WSLOPE . INWSTP (N)  rCT 

5503  FORMAT  (//OH  HEADING  -.rS.O.  RCT 

2?0H  deg  ship  speed  ■.F6.2.25H  KNOTS  fR(X)OE  NUMBER  -.FT. 4.  RCT 
216H  WAV'  SLOPE  -.F5.2.4H  0E(J.24H  WAVE  STEEPNESS  ■ 1 /.I3)  RCT 
ITERAT  » IHMO(KTH)  RCT 

DO  5335  L-1.  ITERAT  RCT 

K ■ L - 1 RCT 

THERAD  » HMO(L.KTH.I)  RCT 

THCRAD  « HM0(L.KTH.2)  RCT 

THEOEG  - THFRA0»FACT  RCT 

THCOEG  » ThCRAO»FACT  RCT 

THORAD  • APS(ThERAO  - THCRAD)  RCT 

THDDEG  - ThORAO'FACT  RCT 

5335  WRITE  (6.SS0S)  k . THERAD . THEOEG . THCRAD . THCDEG. THDRAD. THDDEG  RCT 

5505  format  (l?H0  ITFRATI0N.I3.4X.17HR0LL  AMPL . EST.  -.FT. 4.  RCT 

26H  RAD  (.FS.2.SH  0EG)/19X.1THP0LL  AMPl.  CAL.  -.FT.4.6H  RAD  (.F5.2.RCT 
25H  DEG)/19x.17h  difference  -.FT.4,6HRA0  ( .F5.2.5H  OEG) ) RCT 

5340  IF  (ITERAT  .£0.  5 .AND.  THORAD  .GT.  EPS)  WRITE  (6.5510)  RCT 

5510  FORMAT  (78H0.JIIST  CAN  NOT  GET  ROLL  AMPLITUDE  TO  CONVERGE.  FIVE  ATTERCT 
JHPTS  AND  FIVE  failures. /45m  C-EST  LA  VIE.  WILL  TRY  OTHER  CONDITIONRCT 
2S  NOW.)  RCT 

WRITE  (6.5513)  RCT 

5513  format  (//33H  ROLL  AMPLITUDE  ESTIMATES  (RAD)  -)  RCT 

WRITE  (6.SS1S)  (THM0( I ) . I»1 ,NHF ) RCT 

5515  FORMAT  IHFIO.41  RCT 

RETURN  RCT 

END  RCT 

TAN 

version  « - COC  6700  - TANAKA  - JUNE.  19T2 TAN 

TAN 

SUBROolINE  IANAKA(Tmm, eddy. RGB)  TAN 

TAN 

PROGRAMMER-  0.  FAL I INSEN.ONV  TAN 

TAN 


COMMON  AM (27) .NUT.NMAS.NOS.ST (25) .OS (25) .EL.£LL.X(25.8) . Y (25.8) .PMTAN 
IAS (27) .XMAS (27) .ZMAS(?7) .RRG(27) . XG. ZG . TMAS.E 144 . E 1 55 . E 1 66 . E 146 . TPT AN 
2ST.RF33.RM35.Rm55.0GM,0IP.K,N,TV0L.ALFA(40.11 ) .BETA(40. 1 1 ) ,hOG ( 1 0 ) T AN 
3.FN(5) .SAH'IO' .rOGdO) .SOG(IO) .OMAX .OMIN.NFR.NOK.NOB.NOH.OmEN (40 ) .TAN 
4Ew,  (7.6) . XX ( ?5.7) .yy(2S. 7) .DEL (25.7) .SNE (25.7) .CSE (25.7) .ENl (25.7) .TAN 


SUN. OMEGA. 1(1. r I TO ( 12) . WORD. NON. IX AST. HOG  1 (10) . IT .CBV.CmC .PRNTOP  TAN 

COMMON  SIl (27) .tMAS(27) .8E AM .ORAF T .OMAX . IRR.ML . IENO . I B I LGE . I PRES . TAN 
2VNY.GRAV.AM0DL.M00.AKEELL.BEAMKL. ITS(25) .R0(25) .RF0(25) .DELT AD ( 25 ) T AN 
2.RK0(25) .50(25) .COSPhO(25) .PHI  0(25) .STPR(25) .THMO(50)  TAN 

COMMON  NWSTP. INWSTP ( 12)  TAN 

DIMENSION  EDDY (27) .RGB (27) .FI ( 15) .BOKG( 15) .GKDB(6) .RFORE (6  TAN 

1 ) .BAFT (5) .CAFT (5).Xl(8).YI(fl)  TAN 

DIMENSION  A!.F2(5)  .F2(5)  TAN 

alF2(I)=o.o  tan 

ALF2(2)»0.0873  TAN 

ALF2(3)-0.1745  TAN 

ALF2 (4) »0.3491  TAN 

ALF2(5)=0.5?35  tan 

F2(l)»l.  TAN 

DO  1 I«1.5  tan 

ROKG( I)-l ./(60.-I-10.)  TAN 

1 continue  tan 

flOKG(6)-l./5.  tan 

DO  2 1-7.13  TAN 

BOKG(I)-0.5*0.5»(I-7)  TAN 

2 CONTINUE  tan 

IF (THM-0. 1745)  3.3.4  TAN 

3 CONTINUE  tan 

F1(I)=0.455  tan 

Fl(2)-0.52  tan 
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45 

46 

47 

48 
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21 
22 
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26 
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Fl(3)«0.*^ 

TAN 

3v 

FI (4)»0.35 

TAN 

40 

FU5)«0.52 

TAN 

41 

60  TO  5 

TAN 

42 

4 CONTINUE 

TAN 

43 

IF(THM-0.2618)  6t6i7 

TAN 

44 

6 CONTINUE 

TAN 

45 

FAC- (THM-0. 1745)/ (0,2618-0, 1745) 

TAN 

46 

FI  (1)»(0.32-0,455)«FAC*0,455 

TAN 

47 

FI  (2)-(0,34-0,52)»FAC*0,52 

TAN 

48 

FI (3)-{0.29-0.42)»FAC*0,42 

TAN 

49 

FI (4)»(0.31-0,35)»FAC*0,35 

TAN 

50 

FI  (5)»(0.48-0,52)»FAC»0,52 

TAN 

51 

GO  TO  5 

TAN 

52 

7 CONTINUE 

TAN 

53 

IF(THM-0,3491)  8.9.9 

TAN 

54 

8 CONTINUE 

TAN 

55 

FAC- (THM-0. 2618)/ (0.349 1-0. 261 8) 

TAN 

56 

FI  (l)-(0.25-0.32)*FAC*0.32 

TAN 

57 

FI (2)-(0.25-0.34)»FAC*0.34 

TAN 

58 

FI  (3)-(0.22-0.29)«FAC«0.29 

TAN 

59 

FI  (4)- (0.28-0.31 )*FAC*0. 31 

TAN 

60 

FI  (5)  = (0.45-0.48)«FAC*0.48 

TAN 

61 

GO  TO  5 

TAN 

62 

9 CONTINUE 

TAN 

63 

FI (1)=0.25 

TAN 

64 

FI  (2)-0.2S 

TAN 

65 

FI  (3)=0.22 

TAN 

66 

FI  (4)-0.28 

TAN 

67 

FI (5)-0.45 

TAN 

68 

5 CONTINUE 

TAN 

69 

FI (6)-0.63 

TAN 

70 

FI (7)-0.63 

TAN 

71 

FI (8)=0.S9 

TAN 

72 

FI (9)-0.S3 

TAN 

73 

FI (10)»0.4 

TAN 

74 

FI (11)«0,35 

TAN 

75 

FI (12)-0.32 

TAN 

76 

FI (13)»0.3 

TAN 

77 

IF(THM-0.0873)  10.10.11 

TAN 

78 

10  CONTINUE 

TAN 

79 

AEX-10.6 

TAN 

PO 

GO  TO  12 

TAN 

81 

11  CONTINUE 

TAN 

82 

IF(THM-0.1745)  13.13.14 

TAN 

83 

13  CONTINUE 

TAN 

84 

AEX- (7.66-10.6)/ (0.1 745-0.0873) *(THH-0.0873) *10.6 

TAN 

85 

GO  TO  12 

TAN 

86 

14  CONTINUE 

TAN 

87 

IF(THM-0.2618)  15.15.16 

TAN 

88 

15  CONTINUE 

TAN 

89 

AEX- (6, 34-7. 66) / (0. 2618-0. 1745) *(THM-0. 1745) *7, 66 

TAN 

90 

GO  TO  12 

TAN 

91 

16  CONTINUE 

TAN 

92 

AEX- (5.28-6.34)/ (0.3491 -0.2618) *(THM-0. 2618) *6.34 

TAN 

93 

12  continue 

TAN 

94 

GKO0(1)-1.2 

TAN 

95 

GKO0(2)-1.4 

TAN 

96 

GKD0(3)-1 .6 

TAN 

97 

GK08(4)-1.8 

TAN 

98 

GKO0(5)»2.O 

TAN 

99 

GKO0(6)-2.O5 

TAN 

100 

RFORE(1)-1.0 

TAN 

101 

RFORE(2)»0.6 

TAN 

102 

RFORE(3)-0.34 

TAN 

103 

RFORE(4)-O.15 

TAN 

104 

108 


RFORE (5) •0.04 

RFORE(6)«0.0 

■AFT(1)«1,0 

i*FT(2)»1.25 

i*FT(3)-1.5 

0AFT<4)»2.O 

BAFT(5)-2.25 

CAFT(1)»0.22 

CAFT(2)»0.24 

CAFT(3)»0.3 

CAFT(4)»0.5 

CAFT(5)»0.63 

00  17  K-l,NOS 

IT5U«ITS«K) 

GO  10(18.19,20,21) .ITSU 

18  continue 

RGB (K) -A0S { Y (K ,NUT ) •EL-26) 

IF(X(K,D)  60,60,61 

60  continue 

EOOY(K)»0.63 
GO  TO  29 

61  continue 

GO0»RG0(K)/2./X(K,l)/EL 
IF(GO0-2.OS)  22.23.23 

23  continue 
RBIL=«0.0 
GO  TO  24 

22  CONTINUE 
00  25  J-2,6 

ITEHP  . j 

IF(GOB-GKOB(J) ) 26,26.25 

25  continue 

26  continue 

J • I TEMP 

RBIU= (RFORE (J) -RFORE (J-1 ) )/(GKO0(J)-GKO8(J-l) )»(GOB-GKO0(J-I ) ) * 
IRE(J-l) 

R0IL=R0IL«X(K,1)»EU 

24  continue 
P0G»1 ./GOB 

00  27  J»2.n 

ITEMP  » J 

IF(B0G-B0KG(J) ) 28.28,27 

27  continue 

28  continue 

J • ITEMP 

TONE* (FI (J)-Fl (J-1 ) )/(BOKO(J)-0OKG(J-l) )*(0OO-BOKG( J-1) ) ‘FI (J-1 
F2ALF*I . 

E00Y(K)»F2ALF*F0NE»EXP(-AEX»RBIL/ABS(Y(K,NUT) )/EL) 

GO  TO  29 

19  continue 

00  30  J»1,NUT 
XI (J)=X(K,J)»EL 
YI (J)*Y(K,J)»EL 

30  CONTINUE 
RBIL*R0(K) 

RGB(K)»SORT( (YI (NUT)-ZG)*»2*XI (l)*«2)-RBIL«(SORT(2.)-l.) 
B0Gr2.*XI (1)/A0S(YI (NUT) -20) 

00  31  J»2,13 
ITEMP  » J 

IF(8OG-0OKG(J) ) 32,32,31 

31  continue 

32  CONTINUE 

J = ITEMP 

F0NE»(F1 (J)-Fl (J-1 ) )/(BOKO(J)-BOKG(J-l) )»(0OG-0OKG(J-1) ) ♦FI (J-1 
EOOY (K) >FONE»EXP (-AEX*R0IL/ABS (YI (NUT) ) ) 

GO  TO  29 
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TAN 
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TAN 

167 

TAN 
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TAN 

169 

TAN 

170 

20  CONTINUE 

RGB (K) -A8S ( Y (K.NUT) *£1-20) 

BD0»2. *X(K, I ) •EL/ROB (K) 

00  33  J«2,5 
I TEMP  - J 

IFIBOG-BAETIJl)  34.34,33 

33  CONTINUE 

34  CONTINUE 

J « ITEMP 

EDDY (K) - (CAFT ( J) -CAFT { J-1 ) ) / (BAFT  <J) -BAFT (J-1 ) ) • (BOG-BAFT ( J- 
IFT(J-l) 

GO  TO  29 

21  CONTINUE 
RGB(K)>0.0 
EODY(K)«0.0 

29  CONTINUE 

GO  T0(40,40.43,43) .ITSU 
40  CONTINUE 

IF(X(K,2)-X(K,n ) 42.43,43 

42  CONTINUE 

BR«(X(K,1)-X(K,2) )/(-Y(K,2) ) 

ALF»ATAN(BR) 

ROO-RBIL/ABS (Y (K.NUT)) /EL 
IF(ROO)  44.44.45 

44  CONTINUE 
F2(2)>0.8S5 
F2(3)=0.765 
F2(4)>0.682 
F2(5)’i0.646 
GO  TO  46 

45  CONTINUE 

IF(ROO-0.0571)  47.47,48 

47  CONTINUE 

F2 (2) =(0.745-0. 855) /0,0571«ROO*0, 855 
F2( 3) =(0.670-0. 765 )/0. 0571 »ROO*0.765 
F2 (4) =( 0.745-0.602) /0.0571*ROO*0. 682 
F2(5) =(0.9 15-0.646 )/0. 0571 •ROO»0. 646 
GO  TO  46 

48  CONTINUE 

1F(ROO-O.1142)  49.49,50 

49  CONTINUE 
F2(2)=0.74 

F2  (3) *(0.72-0.670)/ (0.1 142-0.0571 ) *(RDD-0.0571)  *0.67 
F2 (4 ) =(0.89-0. 745)/ (0.1 142-0. 0571 )*(RDD-0. 0571 ) »0.745 
F2 (5) =(1.34-0.915)/ (0.1 142-0.0571) =(900-0. 0571) *0.915 
GO  TO  46 

50  CONTINUE 

IF(ROO-O.1713)  51.51.52 

51  CONTINUE 

F2 (2) =(0.70-0.741/ (0.1 713-0.1 142) • (ROO-0.1 142) *0.74 
F2(3)=0.72 

F2(4)=(l .20-0.89)/(0.1713-0. 1142) *(ROO-O,l 142) *0.89 
F2(5)=( 1 .94-1.34)/ (0.1 713-0.1 142)»(ROD-O.l 142) *1.34 

GO  TO  46 

52  CONTINUE 
F2(2)=0.7 
F2(3)=0.72 
F2(4)=1.2 
F2(5)=1.94 

46  CONTINUE 

00  53  J»2.5 

ITEMP  = J 

IF(ALF-ALF2( J) ) 54,54,53 

53  CONTINUE 

54  CONTINUE 

J = ITEMP 
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r2ALF»(F2(J)-F2(J-n )/{ALF2<J)-ALr?(J-l) )*(ALr-ALr2(J-l) ) .F2(J-I)  TAN 


E0DY(K)-E00Y(K)*F2ALF  TAN 

43  CONTINUE  TAN 

17  CONTINUE  TAN 

RETURN  TAN 

ENO  TAN 

0IL 

VERSION  4 - COC  6700  - H T L G E K - JUNE.  1972 BIL 

BIL 

SUBROUTINE  BIUGEK(GXI.THM,S9K0.TBK0>  BIL 

BIL 

PROGRAMMER-  F.E.  OE  NOOIJ.ONV  BIL 

OIL 


COMMON  AM(?7) .NUT.NMAS.NOS.ST (25) .0S<25) .EL .ELL . X (25.8) . Y (25.8) .PMBIL 
US (27) .XMAS (2/) .ZM*S(?7) .RRG(27) . XG. ZG. TMAS.E I44.E I55.E 166 .E 146 . TPBIL 


2ST.RFJ3,RM3S.RM55. IGM .OIP .K .N, TVOL . ALFA (40 . 1 1 ) , BETA (40 . 1 1 ) .HOG ( 1 0 ) B IL 
3.FN(5) .BAM (30) .COG ( 10) ,SOG(10) .OMAX .OMIN.NFR.NOK.NOB.NOH.OMEN (40 ) .BIL 
4FR(7,6) .XX(25.7) .YY(25,7) ,0EL(25.7) ,SNE(25,7) .CSE(25.7) .ENl (25 , 7) .B IL 
5UN. OMEGA. 10. TITO (12) . WORO.NON, I XAST .HOGl ( 1 0) , I T.CBV .CMC.PrNTOP  BIL 
COMMON  ST! (27) ,YMAS(27) .BEAM.ORAFT .OMAX, IRR.ML. IEND. IBILGE. I PRES.  BIL 
2VNY.GRAv.AHOOL.mOO.AKEELL.0EAMKL.1TS(25) .R0(25) ,RF0(25) .DELTAD ( 25) B IL 
?.RK0(25) .S0(25) .C0SPH0(25) .PH  1 0(25) .STPR(25) .THM0(50)  BIL 

COMMON  NWSTP.INWSTP( 12)  BIL 

C BIL 

C THIS  CALCULATION  METHOD  IS  A MODIFICATION  OF  KATOS  METHOD  BIL 

C R-PAOIUS  OF  BILGE  CIRCLE  AT  STATION  K BIL 

C RF-RISE  OF  FLOOR  AT  STATION  K BIL 

C 0ELTAL=LENGTH  of  THAT  PART  OF  THE  BILGEKEEL  WHICH  IS  AT  STATION  K BIL 

C RK»0ISTANC£  of  hiiOOLE  of  BILGEKEEL  FROM  THE  MOMENTAXlS  IN  wATERPLABIL 

C S»LENGTH  of  girth  from  the  root  of  BILGEKEEL  TO  THE  WATERSURFACE  BIL 

C AT  STATION  K BIL 

C C0SPHUC0SINU5  TO  THE  ANGLE  MADE  BY  THE  PLANE  OF  BILGEKEEL  WITH  RK  BIL 

C PHUANGLE  BETWWEEN  RK  AND  WATERRLANE  BIL 

C 0EAMKL=BREAOTH  of  bilge  KEEL  BIL 

C AKEEL=LENGTH  of  BILGEKEEL  BIL 

C BIL 

DIMENSION  5BK0(27)  BIL 

DO  703  K.] ,NOS  BIL 

R»RD(K)  BIL 

RF»RF0(K)  BIL 

DELTAL»0ELTA0(K)  BIL 

IF  (DELTAL  ,LE.  0.)  GO  TO  703  BIL 

RK»RK0(K)  BIL 

S»SO(K)  BIL 

COSPHUCOSPHO(K)  BIL 

pHI=PHI0(K)  BIL 

SHBEAM32.»x (K, 1 ) »EL  BIL 

GK=ABS(Y (K.NUT) ) »EL  BIL 

T»6.283185»S0PT (ELL/GRAV) /GX I BIL 

ORAUGT^GK  BIL 

TETAM=THM  BIL 

AKAPPA  « R*(1..RF/SHBEAM)**2./SORT(0.5*SHBEAM*GK)  BIL 

CK  3l.»3.5*EXP(-9.*AKAPPA)  BIL 

CO  =1000. •(!. 440.03. 8»PHI*»3.)  BIL 

ALABOA  = R/(0RAUGT-(RF/SHREAM)»(SH8EAM-2.*R) ) 0IL 

FUNLA0  = 1.34»  SIN(3.1416»ALA80A/3.6)/(l. .0.162*  S IN (3 . 1 4 16* ( ALABB IL 

10A-0.9)/1.8) ) BIL 

EPSIL=ATAN(2.*RF/SHBEAM)  BIL 

0 »(0.5*SHBEAM  * TAN(3. 1416/4.  -EPSIL/2. ) .RF-GK ) *S I N (3. 1 4 1 6/4. .EPB IL 
lSIL/2.)  BIL 

PO  = GK  - DRAUGT/3.  - 2.*  RF/3.  BIL 

PONE=O.00*(GK-ORAUGT-O.54*(SHBEAM/2.-(ORAUGT-RF)*TAN(3.l416/4,*EPSBIL 
lIL/2.)))  BIL 

BCIRC  » COSPHI  . S*(0‘P0-(P0-P0NE)*FUNLAB)/2./BEAMKL/RK  BIL 

ZETA  = BEAmkl/(RK*PhI**.75)  BIL 

AN  = 1.4  .?.03*EXP(-25.*ZETA)  BIL 
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16 
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21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 
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52 

53 

54 

55 

56 

57 

58 

59 

60 
61 


or>o  oooooo 


ALPHA  » 2. -AN 

BIL 

62 

REYN»8.*BEAMKL*RK*THM«6XI/ELL/ELL/VNY/6,2832»(AM0DL/ELL)»*2 

BIL 

63 

ir  (REYN-10. ‘‘a)  10.10.11 

BIL 

64 

10  CA-1.95-0.25*ALOG(REYN)/ALO6nO.)*O.2*SIN(3.U16*(ALOG(REYN)/ALOG(BIL 

65 

110.)-2.19)/0.5A) 

BIL 

66 

GO  TO  7 

BIL 

67 

11  CA«1. 

BIL 

68 

7 CONTINUE 

BIL 

69 

r ■ RK»TETAM  • PHI««1.70/(T  • SORT(BEAMKL)) 

BIL 

70 

FALEA*  F»»ALPHA 

BIL 

71 

CN  « 1.98*  ExP(-11.*BEAMKL/AKEELL) 

RIL 

72 

CS*C0/2 .68/ 1 000 . /F ALFA 

BIL 

73 

SBKO  (K) »GXI*2.* (RK/EL) •*3*THM*2.*DELTAL*8EAMKL/ELL/ELL/3./3. 141593BIL 

74 

- 

1*CS*CA*CK*CN*BCIRC/TV0L 

BIL 

75 

SBK0(K)»2.*SBK0(K) 

BIL 

76 

TBK0=TBK0.S8K0(K) 

BIL 

77 

410  FORMAT(12E10.4) 

BIL 

78 

703  CONTINUE 

BIL 

79 

RETURN 

BIL 

80 

■A 

END 

BIL 

81 

END 

2 

VERSION  4 - COC  6700  -ENOSEP  - JUNE.  1972 

-END 

3 

END 

4 

1 

subroutine  ENOSEP(OA.OB.GXI.PAA.PAV.JJ) 

END 

5 

END 

6 

programmer-  0.  FALTINSEN.ONV 

END 

7 

1 

END 

8 

] 

COMMON  AM(27) .NUT,NMAS.N0S.ST(?5) .DS(25) .EL .ELL . X (25 .8) .Y(25.8) .PMEND 

9 

3 

IAS (27) , XMAS (27) ,2MAS(27) ,RRG(27) .XG.ZG. TMAS .E 144 ,E 155.E 166 .E 146 . TPENO 

10 

i 

2ST.RF33.RM35.RH55.0GH,0IP.K.N,TV0L.ALFA(40, 1 1 ) .BETA (40.1 1 ) .HOG(10)ENO 

1 1 

i 

3.FN(5) .8AM(30) ,COG(10) .506(10) .OMAX .OMIN.NFR.NOK .NOB .NOH.QMEN (40 ) 

.END 

12 

i 

4FR(7,6) ,XX(25.7) . YY ( 25. 7 ) ,OEL (25.7 > .SNE (25.7) ,CSE (25.7) ,EN1 (25. 7) 

.END 

13 

SUN.OMEGA. 10.TITO(12) .WORO.NON.IXAST.HOGl ( 1 0 ) . I T .CBV.CMC.PRNTOP 

END 

14 

; 

COMMON  STl  (27) .YMAS(27) . BEAM. DRAFT. OMAX. IRR. ML . IENO. IBILGE. IPRES. 

END 

15 

j 

?VNY.6RAV.AM00L.M00.AKEELL.8EAMKL.ITS(25) .PD(25) .RFD(25) .DELTA0(25)END 

16 

2.RK0(25) .S0(25) .COSPHO (25) .PHIO (25) .STPR(25) .THMO(SO) 

end 

17 

1 

COMMON  NWSTP.INWSTP(12) 

END 

18 

j 

DIMENSION  0A(6.6) .08(6.6) .PAA(2S.7.6) .PAV (25.7.6) .DAOS (10) .OOOSdOEND 

19 

j 

1) 

END 

20 

i 

END 

21 

! 

NOS  IS  TEMPORARILY  CHANGED  TO  IXAST  IN  THIS  ROUTINE 

END 

22 

1 

1 

END 

23 

] 

NOSHaNOS 

END 

24 

I 

NOS=IXAST 

END 

25 

niP=ST(NOS)-TPST 

END 

26 

i 

DO  54  lal.NON 

END 

27 

i 

FR(I.1)»EN1 (NOS.l) 

END 

28 

1 

FR(I.2)=-SNE(NOS.I) 

END 

29 

FR(I.3)=CSE(NOS.I) 

END 

30 

FR(I,4)=XX(N0S.I)*CSE(N0S.I)-YY(N0S.I)*FR(I.2) 

END 

31 

FR(I.5)=-0IP*FR(1.3) 

END 

32 

FR(I.6)=DIP*FP(I.2) 

END 

33 

54  CONTINUE 

END 

34 

DO  55  LKal.lO 

END 

35 

GO  TO  (61  3.61 3.61 3.61 3.61 3. 613.614.615.616.61 7 ) .LK 

END 

36 

613  CONTINUE 

END 

37 

L*LK 

END 

38 

M-LK 

END 

39 

GO  TO  618 

END 

40 

614  continue 

END 

41 

L-5 

END 

42 

M*3 

END 

43 

GO  TO  618 

END 

44 

615  CONTINUE 

END 

45 

L»2 

END 

46 

M»6 

END 

47 

1 


112 


^ tv. 


J 


GO  TO  618 

END 

48 

616 

CO><TlNllE 

ENO 

49 

L«2 

ENO 

50 

ENO 

51 

GO  TO  618 

ENO 

52 

617 

CONTINUE 

END 

53 

L»6 

END 

54 

ENO 

55 

61S 

continue 

ENO 

56 

0*OS(LK)«0.0 

END 

57 

ODOSlLKl »0.0 

E,(0 

58 

no  6i<J  j»i .NON 

END 

59 

0*0S(LK)»  OAOS(LK) .DEL (NOS. J) •EO ( J.U ‘PAAINOS. J.H) 

ENO 

60 

noOStLK)*  OODS(LK) ‘OEL (NOS. J) ‘Eo ( j.L ) «Pav (NOS. J.M) 

END 

61 

61<3 

CONTINUE 

END 

62 

OAOS(L'<(  »?.0»DAOS(LK1  •OS(NOSl 

END 

63 

noOS(LM  »2.0»no0S(LK) •DS(NOS) 

END 

64 

55 

CONTINUE 

END 

65 

00  620  L»I . 10 

END 

66 

DAOS  (L  ) =OA(TS  a ) / I vOL/UN 

END 

67 

ODOS  (D  =r>nr>S(U  / TvOL/SOPT  (UN)  ‘SORT  (2.) 

ENO 

68 

620 

CONTINUE 

END 

69 

00  621  L»<..  10 

END 

70 

0A0S(U  =0A0S (L ) •0.5»O.S 

ENO 

71 

000S(U  =00ns (LI *0. 5*0. 5 

ENO 

72 

621 

CONTINUE 

END 

73 

''O  622  U»7.R 

END 

74 

0a0S(L)=0A0S(U»2. 

end 

75 

'^00S(U*P00S(U)»2. 

ENO 

76 

622 

CONTINUE 

End 

77 

OA (?.2) =0A(2.2)-EN( JJ) /G)(I»*2/OS(NOS1»2.»OOOS(2) 

End 

78 

05 (2.2) *08(2.2) ‘En(JJ) /OS(NOS) •2.»0A0S(2) 

end 

79 

OA (2,1.) =OA (2.A) -En( JJ) /GXI»«2/0S(N0S) •2.*000S(9) 

ENO 

80 

O0(2.A)«Ofl(2.A) .EN( JJ)/0S(N0S)»2.»0A0S(9) 

END 

81 

0A(2.6)*0A(2.6)-EN( JJ)/GX I ••2/ns (NOS) »2. •0005(8 )-(EN(jj)/Gxl)»»2/0EN0 

82 

1S(N0S)»2. *0X05(2) 

end 

83 

08(2.6) *00(2.6) ♦Fn(JJ) /OS(NOS) •2.»OAOS(fl)-(EN(JJ)/GXl)*»2/OS(NOS) »END 

84 

12.»0005(2) 

END 

85 

OA  ((.,2)  =0A  (2.A) 

END 

86 

08(^..2)=0B(2.A) 

END 

87 

OA (4,4) =0A (4 ,4 ) -En ( JJ) /Gxl»«2/ns (NOS) *0005 (4 ) »2. 

end 

88 

00(4,4) *00(4,4) ,EN( JJ) /OS (NOS) »2, *0X05(4) 

ENO 

89 

0A(4,6)=0A(4,6)-En( JJ) /G XI ••2/OS (NOS) *2. *0005 (10)- 

(EN(JJ)/GXI (‘•2/ENO 

90 

10S(N0S)*2.*0A0S(8) 

end 

91 

00 (4, 6) *00 (4, 6) ♦EN(JJ)/0S(N05)*2.*0A05(10)-(EN(Jj)/GXI)**2/O5(N05)EN0 

92 

1*2. *0005(9) 

END 

93 

0A(6,2)=0A (6,2) -En( JJ) /GX I ••2/OS (NOS) *2. *0005 (8) 

END 

94 

05(6,2) =00 (6,2) ♦EN(JJ) /OS(NOS) *2.*OAOS(8) 

END 

95 

0A(6.4)=0A (6.4)-EN(JJ) /GX1^^2/OS(NOS)*2,*OOOS(10) 

END 

96 

00 (6.4) =00 (6.4) ♦FN(JJ)/OS(NOS)*OAOS(10)*2. 

END 

97 

OA(6.6)=OA(6,6)-EN(JJ)/GXM^2/OS(NOS)*2.*OCOS(6)-(EN(JJ)/GXI)^^2/OEND 

90 

15(NOS)*2.*OAOS(8) 

end 

99 

08(6,6) =05(6.6) •EN(JJ) /OS (NOS) *2 . *OAOS (6) - (FN ( JJ) /GX I ) •*2/0S (NOS) *EN0 

100 

12. *0005(0) 

END 

101 

OA(3.3) =0A(3.3)-EN(JJ)/GXI^*2/0S(N0S)»2,*000S(3) 

ENO 

102 

00 (3. 3) *00 (3. 3) *Fn(JJ)/OS(NOS)*2.*OAOS(3) 

ENO 

103 

OA(5.3)*OA(5,3)-EN(JJ)/GXI**2/OS(NOS)*2*OOOS(7) 

END 

104 

00 (5, 3) =08 (5, 3) *Fn(JJ)/OS(NOS) *2.*OA05(7) 

END 

105 

OA (3.5) =OA(3,5) ♦ (EN( JJ) /GXI ) **2/0S (NOS) *2. *OA05 ( 3 ) 

-EN(JJ)/GxI^^2/DEN0 

106 

1S(N0S)*2.*000S(7) 

ENO 

107 

00 (3.5) *05 (3.5) MEN( JJl/GXI (••2/0S(NOS)*2.*0OO5(3) 

♦EN(JJ)/0S(N0S) *EN0 

108 

12.*OAOS(7) 

ENO 

109 

OA(5.5)*OA(5.5)-FN(JJ)/GXI**2/OS(NOS)*2.*OOOS(5)*(EN(JJ)/GXI)**2/OENO 

110 

1S(N0S)*2.*0A0S(/) 

ENO 

111 

08 (5,5) =08 (5,5) «FN ( JJ) /OS (NOS ) *2 . *OAOS (5) » (EN ( JJ) /GX I ) ••2/05 (NOS) *ENO 

112 

12.^000S(7) 

ENO 

113 

113 


o o o o o o 


1 


I 


NOS-NOSH  end 

RETURN  end 

END  end 

HYO 

VERSION  t*  - CDC  6700  - HYDPRE  - JUNE.  1972 HYO 

HYD 

SUBROUTINE  HYDPRE (WN. BOO. BEV. PA*. PAV.GXI.PRERE.PREIM.JJ, MM)  HYD 

HYO 

PROGRAMMER-  0.  FALTINSEN.ONV  HYO 

HYD 


COMMON  AM(?7) .NUT,NMAS.N0S.ST<25) .DS(25) . EL. ELL. X (25.8) .Y(25.8) .PMHYO 
1AS(27> ,XMAS(27) ,ZMAS«27) ,RRG(27) .XG.ZG.TMAS.EI44.EI55.EI66.EIA6.TPHYD 
2ST.RF33.RH35.RM55.0GM,OIP.K,N,TVOL.ALrA(A0.11) .0ETA{AO.ll) ,HOG(10)HYO 
3.FN(5) .8AM(30) .COG(IO) ,SOG(10) .OMAX .OMIN.NFR.NOK.NOB.NOH.OMEN ( AO ) ,HYD 


AFR(7,6) ,XX(25.7) .YY(25,7) .DEL (25.7) .SNE(25.7) ,CSE(25.7) .ENl (25.7) ,HYO 
5UN, OMEGA, !0.TIT0(12) . WORD. NON, IXAST.MDGl ( 1 0) . IT.CBV.CHC.PRNTOP  HYO 
COMMON  STl (27) ,YMAS(27) . BEAM, DRAFT. OMAX. IRR. ML, lEND. IBILGE, IPRES.  HYO 
2VNY,GRAV,AH00L,M00,AKEELL,BEAMKL.ITS(25) ,RD(25) ,RF0(25) .DELTAO (25) HYD 
2,RK0(25) ,S0(25) ,C0SPH0(25) ,PHID(25) ,STPR(25) ,THMD(50)  HYD 

COMMON  NWSTP.INWSTP(12)  HYO 

DIMENSION  80D(6,1),8EV(6,1),PAA(25.7.6),PAV(25,7,6),REP(1  HYD 

14,3) ,AIP(1A,3) .PRERE (8,14) ,PREIM(8,1A)  HYO 

COMPLEX  P0IFR,CPET,I1  HYO 

COMPLEX  PP,QO,0000,OEVEN  HYD 

II*(0. 0,1.0)  HYO 

KPA=0  HYD 

00  1 Kl^l.NOS  HYO 

lF(STPR(Kln  2,1,2  HYO 

2 CONTINUE  HYD 

KM.Kl-1  HYO 

KP»K1*1  HYO 

KPA=KPA*1  HYO 

00  3 K»KM,KP  HYO 

CP»WN»(ST(K)-TPST)*COG(MH)  HYD 

CPlaCOS(CP)  HYO 

CP2=SIN(CP)  HYO 

CPET=(CP1.II«CP2)  HYD 

niPsST(K)-TPST  HYO 

00  4 JS=1 ,2  HYD 

GO  T0(5,6) ,JS  HYD 

5 CONTINUE  HYO 

CSPsl.O  HyD 

GO  TO  7 HYO 

6 CONTINUE  HYD 

CSP=-1.0  HYO 

7 CONTINUE  HYO 

00  0 J»1,N0N  HYD 

FR(J,l)=iENl(K,J)  HYO 

FR(J,2)=-SNE(K.J)»CSP  HYO 

FR(J,3)=CSE(K,J)  HYD 

FR(J,4)3  XX(K,J)»CSE(K,J)*CSP-YY(K,J)»FR(J,2)  HYD 

FR(J,5)=-0IP*FR(J,3)  HYO 

FR(J,6)=0IP«FR( J,2)  HYO 

PET=EXP(WN*YY(K,J) ) HYO 

ARG=WN»XX (K, J) «CSP*SDG(MM)  HYO 

FC>=C0S(ARG)  HYO 

FS=SIN(ARG)  HYO 

PP=FR(J,3)  HYO 

PP=PP*II*FR(J,1)*C0G(MH)  HYO 

00=n*FR(J,2)»S0G(MM)  HYO 

0000= (PP*FC* I I»00»FS) • (6X1«S0RT (0.5*WN) /UN)  HYO 

OEVEN= (OQ*FC 1 1 *PP*FS) • (GXI*SORT (0 ,5»WN) /UN)  HYD 

P0IFR=-(0EVEN*CMPLX(PAA(K.J.2) ,PAV(K,J,2) ) *CSP*FR ( J,2) *00D0*CMPLX (HYO 

1PAA(K,J,3) ,PAV(K,J,3) )*FR(J,3) )*PET»CPET  HYO 

P0IFR=P0IFR-0000»CHPLX(PAA(K.J,1) ,PAV(K,J,1 ) )*FR(J,1 )*PET*CPET  HYD 
RPOIF=REAL(PDIFR)  HYD 
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45 
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I 

f. 


114 


o r>  o 


AlP0f«AlMAG(P01FR) 

HYO 

65 

rEPmo>PAA(K,J,1)*BOO(1,1)*CSP*PAA(K,J.2)*BEV(1,1)*PAA(K,J,3)*BOO(2HYO 

66 

1,1 ) ♦0.5»(CSP»PAA(K,J,4)*BEV(2.1 ) ♦PAA(K,J,S)«900(3,1) »CSP*PAA(K,j,6HY0 

67 

2)»BEV(3,1) )-PAV(K,J,1)»B00(4.1)-CSP«PAV(K,J,2)*BEV(4.1)-PAV1K,J,3)MYD 

68 

3»B0D(5.1)-0.5*(CSP»PAV(K,J,4)»BEV(5.1)*PAV(K 

. J*.5)  *B00(6, 1 ) *CSP»PAVHY0 

69 

4(K,J,6)»BEV(6,1) ) 

HYO 

70 

A1PM0»PAV(K. J. 1 )»B00(1 .1) ♦CSP*PAV(K,J,2)«BEV(1,1 ) .PA V (K . J . 3 ) *800 ( 2MYD 

71 

1.1) »0.5» (C5P»PAV(K, J.4) ‘BEVlZ.l ) «PAV(K, J.5)«BOD(3.1 ) »CSP»PAV (K , J.6HY0 

72 

2)»BEV(3.1) ).PAA(K,J,1)»B00(4,1) .CSP«PAA(K,J, 

2)*BEV(4,1)»PAA(K,J.3)HY0 

73 

3»B0D (5 . 1 ) *0 .5« (CSP»PAA (K . J.4 ) »BEV (5.1) .PAA (< 

»J. 5) *800 (6. 1 ) »CSP»PAAHY0 

74 

4 (K. J.6) *BEV(6, 1 ) ) 

HYO 

75 

JM«J.N0N»(JS-1) 

HYO 

76 

KKMxK-KM. 1 

MYO 

77 

REP ( JM.KKM) .RPDIF.REPMO 

HYO 

78 

A1P(JM,KKM)»AIP0F.AIPM0 

MYO 

79 

8 continue 

MYO 

80 

4 CONTINUE 

MYO 

81 

3 continue 

MYO 

82 

00  9 JS»1 .2 

MYO 

83 

GO  TOdO.lD.JS 

HYO 

84 

10  CONTINUE 

HYO 

85 

CSP*1.0 

HYO 

86 

GO  TO  12 

HYO 

87 

11  continue 

HYO 

88 

CSP=-1 .0 

HYO 

89 

12  CONTINUE 

HYO 

90 

1 

1 

HYO 

A 1 
r A 

00  13  J*1.N0N 

HYO 

92 

JMaJ.(JS-l)»N0N 

MYO 

93 

MaMM 

MYO 

94 

PRERECXPA. JH)*PEP(JK«?)  -FN(JJ)/GXl/0S{Kl)»(AIP(JM,3)  -AIP(JH,1)  ) HYO 
1 .EXP(KN»YY (K, J) ) •COS(WN« (ST (K) -TPST) •C06(MM) ♦CSP»WN»XX (K, J) •SDG(«)HY0 
2)-(800(2,l) *CSP*XX(K,j)/2.»fiEV(2.n-O.5«(ST(K)-TPST)»0OO(3tl) ) hyO 

prEH(KPA,jm).aIP(JH,2)  ♦FN(JJ)/GXI/0S(KI)»<REP(JM.3)  -PEP(JM,n  )HYO 
1*EXP(wn«yy(K, j) )«sIN(wn»(ST(K)-TPST)»COG<mh) ♦CSP»WN»XX (K, j) •sDG(H)HYO 
2»-(B00(S.1) ♦CSP*xx(K,j)/2.«eEV(5.1)-0.5»(ST(K)-TPST)*BOO(6.1) ) HYO 


13  CONTINUE 

<?  continue 
1 continue 

RETURN 

ENO 


-VERSION  u 


COC  6700  - P R E S T - JUNE.  1972- 


SUBROUTINE 


PREST (PRF33.PRH35.PRH55.PC44) 


PROGRAMMER-  0.  FALTINSEN.ONV 


HYO 

HYO 

HYO 

HYO 

HYO 

PRS 

-PRS 

PRS 

PRS 

PRS 

PRS 

PRS 


COMMON  NWSTP. INWSTP( 12) 

DIMENSION  SS(27) ,HBM(27) .SHR(27) .HSB(27) 
H03(27) 


DIMENSION 
NMA0=K»1 
NMU0=K»2 
HR3( 1 ) lO.O 
SS(1)  = STl  (D/10. 
SS(NMU0)*ST(K) .0.5»OS(K) 
HRM( 1 )=0.0 


95 

96 

97 

98 

99 
100 
101 
102 

103 

104 

105 
2 


COMMON  AM(?7) .NUT.NMAS.NOS.ST (25) .OS (25) .EL .ELL . X ( 25.8) .Y(25.0) .PMPRS 
IAS (27) .XMAS (27) ,ZMAS(?7) .RRG(27) , XG.ZG.TMAS.ET44 ,E I55.E I66.E 146 . TPPRS 
2ST.RF33.RM35.RM55.0GM,OIP.K.N.TVOL.ALFA(40.1 1) .BETA(40.11) .HOG(10)PRS 
3.fn(5) .bam (30) ,COG(10) .SOG(IO) ,OMAX .OmIN.NFR.NOK .NOB .NOH.OMEN (40 ) .PRS 
4FR (7,6)  .XX (25.7) .YY (25.7) ,OEL (25.7) .SNE (25.7) .CSE (25.7) .ENl (25.7) .PRS 
SUN, OMEGA, 10. TITO ( 12) . WORD. NON, 1 X AST. HOGl (10) , 1 T .CBV .CMC .PRNTOP  PRS 

COMMON  STl (27) .YMAS(27) ,BE AM .oRAFT .OMAX , IRR.ml , TEND, I B ILGE . IPRES.  PRS 
2VNY.GRAV,Am,0DL.M00,AKEELL,BEAmkL.1TS(25) ,R0(25) ,RFD(25) .DELTAO (25) PRS 
2,RKD(25) .50(25) .C0SPHD(25) ,PHI0(25) ,STPR(25) ,THMD(50)  PRS 


PRS 

PRS 

PRS 

PRS 

PRS 

PRS 

PRS 

PRS 

PRS 


3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 


115 


r 

I \ 


1 

IF(K-NOS)  2.3.3 

PRS 

27 

1 

2 CONTINUE 

PRS 

28 

1 

H83tNMU0)»2.*X(K.l)«*3 

PRS 

29 

1 

HBM(NMUO)«X(K.n 

PRS 

30 

; 

60  TO  4 

PRS 

31 

3 CONTINUE 

PRS 

32 

HBM(NMU0)»0.0 

PRS 

33 

HB3(NMUO)»0.0 

PRS 

34 

. 

4 continue 

PRS 

35 

00  I J»2,NMA0 

PRS 

36 

IP1:*J-1 

PRS 

37 

» 

SS(J>»ST(IP1) 

PRS 

38 

HBM(J)»X(IP1.1) 

PRS 

39 

H83(J)»2.*X(IP1.1)*»3 

PRS 

40 

1 CONTINUE 

PRS 

41 

DO  5 J»1 ,NMUO 

PRS 

42 

SPO=SS(J)-TPST 

PRS 

43 

SHB(j)*SPO»HBM(J) 

PRS 

44 

HSB(J)*SP0«SH6(J) 

PRS 

45 

5 continue 

PRS 

46 

FPCH=SIHPUN(SS.H63.NHU0) 

PRS 

47 

PC8V=O.S*SIMPUN(SS.AM,NMUO)/TVOL 

PRS 

48 

PC44=PCBV*PPCM/3.0/TVOL*O.S 

PRS 

49 

PRF3334.0*S1MPuN(SS.HBM,NMUO)/TVOL 

PRS 

50 

PRH35=-2.0*SIMPUN(SS.SHB,NMUO)/TVOL 

PRS 

51 

PRMB5=SIHPuN(SS.HSB.NMuO)/TVOL 

PRS 

52 

RETURN 

PRS 

53 

END 

PRS 

54 

c 

VIS 

2 

c- 

VERSION  4 - COC  6700  - V I S C - JUNE.  1972 

-VIS 

3 

c 

VIS 

4 

subroutine  VISC(GXI.VO.TVO.THM,EOOY.RGB) 

VIS 

5 

c 

VIS 

6 

c 

programmer-  0,  FALTINSEN.ONV 

VIS 

7 

c 

vis 

8 

COMMON  AM(27) ,NUT.NMAS.N0S.ST(2S) .DS(25) .EU.ELL.X (25.8) .7(25.8) .PMVIS 

9 

IAS(27) .XHAS(27) .ZMAS(27) .RRG(27) .XG.26.TMAS.EI44.EI55.EI66.EI46.TPVIS 

10 

2ST.RF33.RM35.RM55.0GM,OIP.K.N,TVOL.ALFA(40.II) .BETA(40.1 1) .HOG(IO) VIS 

11 

3.FN(5) .BAM(30) .COG(IO) .SOG(IO) .OMAX.OMIN.NFR.NOK.NOB.NOH,OmEN(40) 

.VIS 

12 

4FR (7.6) .XX (25.7) .YY (25.7) .DEL (25.7) .SNE(25.7) .CSE(25.7) .ENl (25.7) 

.VIS 

13 

SUN.OMEGA, 10. TI 10(12) .W0R0.N0N.IXAST.HD61 (10) .IT.CBV.CMC.PONTOP 

VIS 

14 

COMMON  STl (27) ,YMAS(27) .BE AM, DRAFT .OMAX. IRR.HL . IENO . IBILGE . 1 PRES. 

VIS 

15 

2VNY,GRAV.AMOOL.hOO.AKEELL.BEAMKL.1TS(25) .RD(25) .RF0(25) .OELTAD (25) VIS 

16 

?.RKD(2S)  .S0(25) .C0SPH0(25) ,PHID(25) .STPR(25) .THMD(50) 

VIS 

17 

COMMON  NWSTP.INWSTPU2) 

VIS 

18 

1 

DIMENSION  V0(27) 

VIS 

19 

i 

1 

DIMENSION  ED0Y(27) 

vis 

20 

\ * 

DIMENSION  RGB(27) 

VIS 

21 

1 

DIMENSION  XI(8).YI(8) 

VIS 

22 

c 

VIS 

23 

c 

THIS  SUBROUTINE  CALCULATES  SKIN-FRlCTlONAL  AND  EDOYMAKING  ROLL-OAMPVIS 

24 

c 

VIS 

25 

PI=3. 141593 

VIS 

26 

TVO=0.0 

VIS 

27 

00  2 Krl ,NOS 

VIS 

28 

RG=RGB(K)/EL 

VIS 

29 

PSUR=0.0 

VIS 

30 

DO  3 J=1 .NON 

VIS 

31 

PSUR=PSUR.DEL(K.J) 

VIS 

32 

3 CONTINUE 

VIS 

33 

PSUR=PSUR*0S(K)»2. 

VIS 

34 

DO  11  J-l.NUT 

VIS 

35 

XI (J)=X(K.J) 

VIS 

36 

YI  (J)=Y(K,J) 

VIS 

37 

11  CONTINUE 

VIS 

38 

S0AR=2.*A8S(SIMPUN(YI .Xl.NUT) ) 

VIS 

39 

ooo  oonoooo  ooo 


DK«ABS(Y(KtNUT)) 

BHK«2.»0HAX (NUT«XI ) 

C*»SQ*R/BMK/0K 

RS«1./PI*( (O.B87*0.1<.5»CA)»(1.7*OK.CA«flMK)*2.»ZG/EL) 

PM0AR»HS*»3*PSUR 

PARMaRS»»2 

RN*3.22/8./PI»GX1»PARM»THM»*2/VNY»  (AH00L/ELU»»2 
VA2*0.0 

GO  T0(4,5) ,M00 

5 continue 

VA2-0.01i.«RN»»  (-0. 1 lA) 

A CONTINUE 

VA=1 .32B»RN»»(-0.5) »VA2 

V0(K ) = 1 ./6./PI»PM0AR»THM»6XI/TV0L«VA 

V0(K)3V0(K) *1 ./6./P1»psUR«RG»»3»THM*Gx1/TV0L»E00Y(K) 

V0(K)i?.»V0(K) 

TV0=Tv0‘V0(K) 

2 CONTINUE 
RETURN 
ENO 


VERSION  A - COC  6700  - ATAN20  - JUNE*  1972- 

FUNCTION  ATAN20  (B.A) 

PROGRAMMER-  w.  MEYERS. NSROC 


-ARCTANGENT  Function  to  compute  angles  (1n  degrees)  In  any- 

-OUAORANT.  THE  B argument  IS  THE  IMAGINARY  VECTOR.  THE  A- 
-ARGUMENT  IS  THE  REAL  VECTOR. 


DATA  EPS  /I .£-10/ 

IF  (0  .£0.  0.)  ATAN20  * 0. 

IF  (0  ,GT.  0.)  ATAN20  » 90. 

IF  (0  ,LT.  0.)  ATAN2D  »-90. 

IF  (A0S(A)  .GT,  EPS)  ATAN20  • ATAN2 (B.A) •57.295779 

RETURN 

ENO 


-VERSION  A - COC  6700  - 0 M A X - JUNE.  1972- 


FUNCTION  HMAX(NUT.XI) 
DIMENSION  XI (1) 

A»XI(1) 

IF  (NUT  .EO.  1)  GO  TO  20 

00  10  1=2. NUT 

IF(XI (I) .GT.A)  A«xI(I) 

10  CONTINUE 
20  HMAX=A 
RETURN 
ENO 


VIS 

40 

VIS 

41 

VIS 

42 

VIS 

43 

VIS 

44 

VIS 

45 

VIS 

46 

VIS 

47 

VIS 

48 

VIS 

49 

VIS 

50 

VIS 

51 

VIS 

52 

VIS 

53 

VIS 

54 

VIS 

55 

VIS 

56 

VIS 

57 

VIS 

50 

VIS 

59 

ATO 

2 

•ATO 

3 

ATO 

A 

ATO 

5 

ATO 

6 

ATO 

7 

ATO 

0 

•ATO 

9 

•ATO 

10 

•ATO 

11 

ATO 

12 

ATO 

13 

ATO 

lA 

ATO 

15 

ATO 

16 

ATO 

17 

ATO 

10 

ATO 

19 

8MX 

2 

•0MX 

3 

0MX 

A 

0MX 

5 

0MX 

6 

BMX 

7 

BMX 

0 

BMX 

9 

BMX 

10 

0MX 

11 

BMX 

12 

BMX 

13 

BMX 

lA 

DTNSRDC  ISSUES  THREE  TYPES  OF  REPORTS 

(1)  DTNSRDC  REPORTS,  A FORMAL  SERIES  PUBLISHING  INFORMATION  OF 
PERMANENT  TECHNICAL  VALUE,  DESIGNATED  BY  A SERIAL  REPORT  NUMBER. 

(2)  DEPARTMENTAL  REPORTS,  A SEMIFORMAL  SERIES,  RECORDING  INFORMA- 
TION OF  A PRELIMINARY  OR  TEMPORARY  NATURE,  OR  OF  LIMITED  INTEREST  OR 
SIGNIFICANCE,  CARRYING  A DEPARTMENTAL  ALPHANUMERIC  IDENTIFICATION. 

(3)  TECHNICAL  MEMORANDA,  AN  INFORMAL  SERIES,  USUALLY  INTERNAL 
WORKING  PAPERS  OR  DIRECT  REPORTS  TO  SPONSORS.  NUMBERED  AS  TM  SERIES 
REPORTS;  NOT  FOR  GENERAL  DISTRIBUTION. 


